N@'	 /,=ȥ'ߊJJJJ	H[H`A@ 7 <@@)*+0LL       .-,+*)('&%$#"!/0>=<;:987654321?                                                                                                                                 %Ԡ``* = =*` &
<> / =LA==<L+ &=//<&L/><J`8`+ *-  ! $Y " $K #  $=+????1JJJJx?    / X
+JJ JJ	HHH@Π࠺8``'	=HS_lIɪ8*q	.)w. VE.U1] V] H)] V]1)] T] 2)] '	ɾ8 hU2`ŠΠةHxH`COPYRIGHT 1981 APPLE COMPTUER INÊ)
+)
+UL  $(,048<@DHLPTX\`dhlptx|Հ؈䤨谴                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                LM*A @ @&E&&A@@&AA)߅CBBH&E&&A@B&	ChLQhBAȌk8lj8hmh @ AL@mm@AAA"!iˢ L@MA @ /@h
imm@8/e@@ eAAOͥ@NƊiK?AkC @B@BnACL$ VXZdflp55????                "55";>>????????@  # #                                                                                                                                                 )=)iT !j)))))))$r&%'%'D'1(?(C((#$#$q(f(O(4$((''(@$}$%%%K(6:'   6:'6 Q'Q'e <INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč $3>L[dmx!pppp p p p p` " t""#x"p0p@p@@   @p@ !y q q p@                                                   а                
d ֠P  ЮɠΠԠŔƀɐĀàzȠŅ  # ÅÂŠϠԠΠàՕɥՔϕťŮΪɠɠؠ殁īɠҠàӠŠŠ̠̘֜Ԁĭ̕ŒͮÀŠ΀ŠΠԀ΅ӤƱՆɌҠ ԠϠҮӠƩ̈ťŠɥƠ̐Ҡ͠ΠŠàÆŅÐŠŠϠԠΠՕɈԔťŠΪɠ̠ؠ殁ԫɠɠàӠ͠Ş̠̌ԀĮ̕ŒͮÀŠπŠΠԀՠ΅ӤƱՆؠŠԠϠҮӠƩ̕ť󮃩ӱӠҠĠŠŠɠɄΠŠűŠЅӀà̠ҠӮӠSȌVS  ͦQ s')Yx
h( x֭ ͦL$*ɍ ,L*L,SS >%3 9a " s'
0LO"jL" b'i< b'(S9˭ɠiɠKS9?LO"<h`i9' 'S9ΐL,L, YhZ`a +Q s'ɍSY]ГWvWQܢ
0GYYʎX 'X

;	:';*Ѓ:)WДJ;[:ZL,#HYYh)hh #L* , }'SHH` #FL* #EL* , r(L# t,Y)b!
! +`@-YZZ! y(L( y(!Z`L $G  "	hES,. ( % E +lf  $@LJ$ LM*   ` r(CDi , r(L$ t,Y)bccb l%8ɍ` >%fP!!!L+ >%NF l% (FΩL,)PN	ʽ 	 L3*Hv3h`0h8` ( ,L3* }% t,С!! +!`A@`	-Y	LO" 5&gf @&a` @&gfL_& %-!1L,! &Y)fg &fgL% % /&lfL
, &1`j) i)1i)e1b=1Lw( j&1` +L*&!H w(hL,!!!!! +!!L+!!L)? +L(L, ( %#-!!( ' &egehtpjigh & +l` ' &8LTMUEK@>ˆʎ!!L'&
!! !!!! +U!T!` (L
,!SVJL~$LA$` s& H* +lXJ̥KlV v& H* +lV eօ3؍L׮Q ɍQɬ` b'ɠ` !` :; s'ɤ<(L' s':;`80!
 'e: e; ' 'e::e;;8`:&;`( s'80
0 '::L':L:LRhR`,hP H*pMh-RR` :H (hKL+ y( , @` y(L(!	!	W (L( r( l%L? L5&W`
a``!a! (;L,A:@ i, t, @,W!L+iɠ% ,; (L( ,  @ t,!L+ ,L( , , , (L(` Q)EHP(h0L% *$`( b%F :* :)PNL3*l8  Q)F
HHP`PNOMG6`L)Eɿu3'FͦʎFʎQQ QɍuL"ɍ} FL$* Fɍg^H8 >%hNL)ɍF $L*ͦɊF F%  +L1' ͦ
  N@ -R :* E*PON +MPON8`l6 LE*?JJJJ^?\ I 
aUL*@kU8 
L $ + RF(jE0l^l\K +	H }%h @ ,S*ō818VSL#`L+LZLXLL8 @AKW @8@-@HA ȑ@hHȑ@ȑ@hHȑ@Ȋ@Wh8&ȑ@H ȑ@Ah@L#+H ȑ@ȑ@htphso`hMhL`9J8I897H6G67`Wde` ,` 5 (	L2 -!L?L5? !`
P + + >%P@lZWIZH	 E*Wh`Z!\!^!!!@CAD`i@`@!&` EF` ; ,L, , ,
@:A;@i`8` L,%@	@A@` @`@A`M!
) (L,` S 5!
5H5H`Lp2 &-L2 -"!! "" 0^SJELl2L2 !! Q1 !!" !!!  D/ "3 ? P3! ! ! !"!"!"!!!  !Lt3 !-!I"!"!



""` 33 J3 1-!! .  /8!!"!"! D/L2 &-"0+!B!C )1 D/L2!
5H5H`Lt2L2"0!
5H5H` 2 .!L2 2 0 .H 0 hBL. /BH h0 0h`L|2 2! .L2 2 0 B . 0L.H /hB@!! h0L05?5?" 141 _/41`L_/ R/(
 8`  /` R/L_/5?5?`???!!"I?"?"? "?"??55 ??!?`? L2"!"!f 33"!"!"!"! t3`8"!
i "3B!8` A0L-0!ȱB! 3"!"! &3"` Q1ȑB!"B! &3 ?!!`"!	"!
""!!""  "	"
""`"""`!!BC!!`!!!!`L2 .!B!C !! /Q  0" B 
` =1۰Ϭ B 8`i#` ЗL2"!"0>""""` "  .	 m
 	 
7
 i	 "

 "8   . "ЉL2"`H ."h 1 "L.~! 

"  `!""!"	" ""J"m""m"jn"n"n"ۭ!
"m""!"m"" m""`"L+
!8! H 5(` - e/"I	 
 8  DH .   R/ ?  Ȍ? e/ 0 ? V?L2 !B!C`,!p` 3 _/-!!`!0` a3 _/-!!`!?!?!!` J3 a3 "3(	!!L3BȱBL3!8` Q1BH"BH P3 ?!Bȭ!Bhh!! _/B!m!!ȱB!m!!` 3L_/!!??!!`  &- )  D/L2 2L2 &- /""L94 &- L2 !!  ! D/ t3* "3B0	HȱBh 4!! 48 .L28 1 "` -" . M5 M5 ;?: `5 M5 M5 /]  S0J   )

  !:!; `5    M5 =1L2 λ ` H::; ;hi HLe5h	 ` 3 !B!-` 3 !B-`?  @-.U.m.H44447./4254........HA>V D< <P ^8(ED 08 :6$0x8x 9- 8DD#H8` ?E :k 59f???0x";E 6 6 6Hh 9#-EEE8` 9 8x 9- 8x8`-";0ݩ";?ʥD
EEE`HIHHHHhHH݌hHhHh݌H6 
<GHHH( jf5( ;H 08(GFGHZXj 90x 9$xxH` ^8(  08h 08L7.xxH ^8hh@(L89L5HH/Hh/ H2;-З( 8( & {88H` 59
 88Nx`*JJJJx$50x*$50xL+:HHjf5JJJJh
$50x` V0 <^ =*^ =*>&` rI꽌ɪHhɭ  ;, V&Y ;& =&Y ;& < ;
꽌ɪ8`` V<>J> =J> = <V `8'x0| =&HhHh 9 9 9 9V =Y<V='&Y <V=x <ꪽV=' 9 9 9 9 9`Hh`&&Q꽌ɪɖ '*&%&, E'꽌ɪ`8`+*xS &x'8*3Ixix&&8 y:B; ;' |:N; ;& ;x)*++`80^݌Hh : :݌ ; ; ;A :D :? :AEDE?HJ>h	 ; ; ; ;`HJ>݌h	Hh݌`FG8`                 	
0($ p,&"                                                             	
 !"#$%&'()*+,-./0123456789:;<=>?                                                                                                                                                                                                                                                                                                                                                                                                                                                                +JJJJ	? >  /   X 5  l> ӠӠΠŠōŠŠӠōȠ͠ҠōĠӠ΢Ϡԍ                                                                >  ,  ?@!L, ?!!  ?L$! + (LL(BB!L+ ? ???? ?Ȍ?Ȍ??? ?L/?????`x 6(`(8`!? ?"I?` B` ? >`   ?      `                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   u   -                                                                                                                                                                                                                                                        )) (PP((BID$,2,1)) (                                                                                                                                                                                                                                  :790,QQ:2170 $'pD$;"RUN PS0,S6" 8'z790:D$;"PR#6" K'790,QQ:2200 ^'222,0:790,96 '790:790,QQ:(222)5BID$"1100":2240 'D$"OPEN PRINTER,S5,D1,L6" 'D$"READ PRINTER,R0" 'BID$ 'D$;"CLOSE PRINTER":216,0 (IM((BID$,1`ii 1L                                                                                                                                                                                                                            o `8kk kili   ԭʩ   } 08 2 0 e 8 8 Lޔ8 Lu`  +)  
 ``8`XuD$"READ PRINTER,R0" #buBID$ @luD$"CLOSEPRINTER":216,0 TvuIM((BID$,1)) juSP((BID$,2,1)) pu   L                                                                                                                                            DUW OM HET EVEN WELKE TOETS IN VOOR":20:1:"HET STARTEN VAN HET PROGRAMMA." ] (16368),0 v
(16384)127ī1290 D$;"PR#6" 0u216,0:222,0:790,QQ:30020 :u30030 Du790:(222)5Ĺ222,0:BID$"1100":30060 NuD$"OPEN PRINTER,S5,D1,L6" 222)8(222)9ī1240 =(222)255Ĺ222,0:790,96:216,0: KD$;"PR#6 34,0:::1:8:" FOUT ROUTINE "::2:8:"--------------" 4:1::"EEN VAN UW SCHIJVEN IS DEFEKT":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCHREDEN." M18:1:"384)127ī1120 t e~34,3::4:1:"PROGRAMMA SCHIJF BEVINDT ZICH NIET":6:1:"IN DRIVE NR. 1." 16368,0:20:"DUW OM HET EVEN WELKE TOETS IN OM NAAR":22:"HET MENU TERUG TE KEREN":34,23 (16384)127ī1180  2220Č790 ("PR#0":I: ?.:10:"VERVALDAGBALANS":10:"---------------" q84:"ER BESTAAT GEEN FAKTUUR IN HET SYSTEEM." L8:"DEZE BEHANDELING KAN DUS NIET GEBEUREN." `20:"DUW OM HET EVEN WELKE TOETS IN OM NAAR":22:"HET MENU TERUG TE KEREN." j(16UR";5);"VERVALDAG";5);"BEDRAG";7);"VOORSCHOT" 10);"-----";10);"-------";5);"-------";5);"---------";5);"------";7);"---------" :LLLL14 NO$;K1);FA$;6);DE$;6);DH$;K2);GT$;K3);MD$ LLLL1:LL60āKLLLM::K:LL0 $(4);GENBALANS        *" GLD$;YM);"*                                 *" {LD$;YM);"***********************************" :4);"  DATUM ";DJ$ 6);"-----"  24);"FAKTUUR";6);"DATUM";8);"DATUM" 010);"KLANT";12);"NR.";7);"FAKTUD$"" /K17(FA$):K211(GT$):K314(MD$) `(4);"PR#";SP:YM23:IM0ĺ(9);"80N";:YM3 qLL0ī1040 w LD$;YM);"***********************************" LD$;YM);"*                                 *" LD$;YM);"*        VERVALDA(GT$,(GT$)3)"."(GT$,3) \\(MD$)999(MD$)999999MD$(MD$,(MD$)3)"."(MD$,3) f(GT$)999999GT$(GT$,(GT$)6)"."(GT$,(GT$)5,3)"."(GT$,3) p(MD$)999999MD$(MD$,(MD$)6)"."(MD$,(MD$)5,3)"."(MD$,3) z(MD$)0MFA):((TB$(I),1))1FA$"* "FA$ 4DH$(TB$(I),33,2)"/"(TB$(I),31,2)"/"(TB$(I),29,2):DE$(TB$(I),39,2)"/"(TB$(I),37,2)"/"(TB$(I),35,2) >GT((TB$(I),41,8)):GT$(GT) HMD((TB$(I),49,8)):MD$(MD) R(GT$)999(GT$)999999GT$HET EVEN WELKE TOETS IN OM":22:"HET PROGRAMMA TE STARTEN." T(16384)127ī730 n(16384)155ġ:470 t |   I0I11 I0NO$(TB$(I),24):810  NO$(TB$(I),24):NO$(TB$(I1),24)NO$(BL$,24) "*FA((TB$(I),25,4)):FA$(:10:"VERVALDAGENBALANS":10:"-----------------"::34,23 d4:"LIJST DER ONBETAALDE FAKTUREN." 10:"VERZEKERT U DAT DE PRINTER ONDER":12:"SPANNING EN 'ON LINE' STAAT." 16:"<";::"ESC";::">  TERUGKEREN NAAR HET MENU." <20:"DUW OM :20:"DUW OM HET EVEN WELKE TOETS IN OM NAAR":22:"HET MENU TERUG TE KEREN.":34,23 mX(16384)127ī600 sb {l   vD$;"OPEN ";F$;",S";SS;",L115" D$;"READ ";F$;",R";PC CREC$ D$;"CLOSE ";F$ NO$(CREC$,24)  ;34,0::((SX$,6,4)):DH$(SX$,16,6):MD$(SX$,30,8):MD(MD$):GT$(SX$,22,8):GT(GT$):DE$(SX$,10,6) x&CP((SX$,39,1)) ~0 :790,QQ:585 D:10:"HET SYSTEEM KENT GEEN DATUM.":12:"VOER DEZE EERST IN." F590 I(222)0Č790 UN16368,0 I10Č38000:770 J(4);"PR#";SP:KLLLM::K:(4);"PR#0":LL0 e790,96:216,0:222,0: 790:(222)0ī1200 790,QQ:460 D$;"RUN PC0,S6"    O3$ R3$;I SX$ C3$ bFA$(SX$,4):FA(FA$):F$(SX$,5,1):PCT790,QQ:1200 ^I1NR1 (h490 z(DH$)(DJ$)CP0İ620:TB$(I1)NO$FA$DH$DE$GT$MD$"0":I1I11:I:430 (DH$)(DJ$)CP1İ620:TB$(I1)NO$FA$DH$DE$GT$MD$"1":I1I11:I:430 I  DJ$(DJ$,2)"/"(DJ$,3,2)"/"(DJ$,2)50  790,QQ:170  O6$ & R6$ / DJ$ 8 C6$ R 790,96:216,0:222,0 p 790:(222)5İ1070:450  790,QQ:240 I3$ R3$;"0" NR$:NR(NR$) "C3$ ,790,96:216,0:222,0 6690 @TB$(NR) J790,96:216,0:222,0 :R3$D$"READ FLDCOMCL,R":C3$D$"CLOSE FLDCOMCL":W3$D$"WRITE FLDCOMCL,R":I3$D$"OPEN FLDCOMCL,S4,D1,L6" 
 O6$D$"OPEN DATE,S5,D1,L8":R6$D$"READ DATE,R0":C6$D$"CLOSE DATE" 
 790,96:216,0:222,0  790:(222)5Ĺ790,96:216,0:222,0:570:4):D$;"NOMON I,C,O" r	d ZE$"0000000000":BL$"                         ":SP1:SS4:790,96:216,0:222,0:LD$(14) 	i 30000:LM65:IM1LM65 	n (222)0Č790:1150:450 	x 790,QQ:110 	 D$;"BLOAD SORT,S6,D1" k
 O3$D$"OPEN FLDCOMCL, S4,D1,L41"q QQ104:(57350)QQQQ8 x 790,96:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96 < 37998:34,0:33,40 F 790,QQ:1200 P 34,0::34,23::12:"VERVALDAGENBALANS":2:12:"-----------------": 	Z D$(13)(4            
	                                                                                                                                                                                                                                                                                                                                                                                                                                                                   u                                                                                                                                                                                                                                                            D$;"CLOSE ";F$: 30u216,0:222,0:768,QQ:30020 >:u30030 kDu768:(222)5Ĺ222,0:BID$"1100":30060 NuD$"OPEN PRINTER,S5,D1,L6" XuD$"READ PRINTER,R0" buBID$ luD$"CLOSEPRINTER":216,0 vuIM((BID$,1)) uSP((BID$,2,1)) u   $;" SALDO";" : ";ST$:LLLL4 3>KLLLM::K:LL0 FH(4);"PR#0": URD$;"PR#6" o\768,96:216,0:222,0 f768:(222)5Ĺ768,96:216,0:222,0:ZW1: p768,QQ:870 zD$;"OPEN ";F$;",S";S;",D1,L6" D$;"READ ";F$;",R0" NR$:ZW0 CT999999CT$(CT$,(CT$)6)"."(CT$,(CT$)5,3)"."(CT$,3) zST999ST999999ST$(ST$,(ST$)3)"."(ST$,3)  ST999999ST$(ST$,(ST$)6)"."(ST$,(ST$)5,3)"."(ST$,3) *K152(DT$):K212(CT$):K1);DT$;K2);CT$ 4:45);SL"CREDITEUR" 'DTCTST0::SL$"NUL" IDT$(DT):ST$(ST):CT$(CT) DT999DT999999DT$(DT$,(DT$)3)"."(DT$,3) DT999999DT$(DT$,(DT$)6)"."(DT$,(DT$)5,3)"."(DT$,3) CT999CT999999CT$(CT$,(CT$)3)"."(CT$,3) CVEN WELKE TOETS IN OM":22:"HET PROGRAMMA TE STARTEN.":34,23 V(16384)127ī660 p(16384)155ġ:200 v (4);"PR#";SP:IM0ĺ(9);"80N"; 38);"----------------------------" DTCTSTDTCT:SL$"DEBITEUR" DTCTSTCTDT:SL$"" NCC0CC$"" &XSS0SS$"." ,b ^l34,0:4:"EDITIE GEBEURT OP LISTING PAPIER." v8:"VERZEKER U DAT DE PRINTER ONDER ":10:"SPANNING EN 'ON LINE' STAAT." 14:1:"<";::"ESC";::"> TERUGKEREN NAAR HET MENU." >20:"DUW OM HET E$,(DD$)3)"."(DD$,3) ECC999CC$(CC$,(CC$)3)"."(CC$,3) rSS999SS$(SS$,(SS$)3)"."(SS$,3) &(TVA$)0TVA$"N. VERPLICHT" 0(TVA$)0(TVA$)9TVA$(TVA$,3)"."(TVA$,4,3)"."(TVA$,3) :DTDTDD:CTCTCC DDD0DD$$ NNO$(CREC$,24):TVA$(CREC$,73,9):AD$(CREC$,25,24):LO$(CREC$,49,24) {DD((CREC$,104,7)):CC((CREC$,97,7)) DDCCSSDDCC:C$"DB" DDCCSSCCDD:C$"CR" DDCCSS0:C$"" DD$(DD):SS$(SS):CC$(CC) DD999DD$(DD***" 
| N10);"KLANTEN GEGEVENS";22);"DEBET";6);"CREDIT";10);"SALDO" 10);"----------------";22);"-----";6);"------";10);"-----" :LLLL10: D$;"OPEN ";F$;",S";S;",D1,L115" D$;"READ ";F$;",R";J CREC$ D$;"CLOSE ";FLL0 @(4);"PR#0": HJ:SP$;YM);"******************************" wTSP$;YM);"*                            *" ^SP$;YM);"*      KLANTEN BALANS        *" hSP$;YM);"*                            *" rSP$;YM);"***************************$;"PR#6" 9
 (4);"PR#";SP:YM26:IM0ĺ(9);"80N";:YM6 H
 LL0İ330 
K213(TVA$):K312(DD$):K412(CC$):K514(SS$) 
5);NO$ 
5);AD$ 
"5);LO$;K2);TVA$;K3);DD$;K4);CC$;K5);SS$;" ";C$ 
'LLLL4 
, 6LL60āKLLLM::K:0000000000":768,96:216,0:222,0 B	i S4:30000:LM65:IM1LM65 K	n 620 `	x I6590:F$(I) i	 860 {	 ZW1ĂI:190 	 J1(NR$)1 	 420 	 230 	 J,I 	 690 	 768,96:216,0:222,0:768,QQ:220 	 :D$;"RUN PC0 ,S6,D1" 
 768:D QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 P SP$(14) Z 34,0:33,40:::1:12:"KLANTEN BALANS":2:12:"--------------"::34,23:D$(13)(4):D$;"NOMON I,C,O" !	d ZE$"            
	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        ӶıԍñӶıԍòӶıԍóӶıԍôӶıԍõӶıԍöӶıԍ                                                                                                                                  ңҤҤҤ΢аӶıԍӰӶıԍӲӶıԍӳӶıԍӴӶıԍӵӶıԍӶӶıԍӷӶıԍӸӶıԍӹӶıԍӱӶıԍð            
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               ((
768,96:216,0:222,0:768,QQ:2780 A(
D$;"RUN PC0 ,S6,D1" U(
768:D$;"PR#6" f(
768:34,0: (
(222)::(218)(219)256 (
   256 (
   1                                                                                                 RIVE '3' STAAT." d'd
20:3:"DUW OM HET EVEN WELKE TOETS IN OM":22:3:"HET PROGRAMMA TE STARTEN." }'n
(16384)127ī2670 'x
 '
34,0::13:4:"KLANTENBESTAND WORDT GECREEERD"::34,23 '
O1$ '
I01663 '
W1$;I '
(ZE$,3):I '
C1$: RCEC$CH$:PCNK:800:1720 5&

P61P20P30ī1720 |&
P60P21P30İ1390:RCEC$RCEC$CH$:PCNK:800:670:INK1:2060 &2
P60P20P30İ670:INK1:1520:2060 &F
1390:850:1520:1490:1970 'Z
5:3:"KIJK NA OF DE KLANTEN SCHIJF":7:3:"IN D6384)155P61 %%~	34,23:(16368),0 `%	P61P21P31İ1390:RCEC$RCEC$CH$:PCNK:800:1720 z%	P61P20P31ī1720 %	P60P21P31P20:1390:RCEC$RCEC$CH$:PCNK:800:I:1720 %	P60P20P31İ1520:I:1720 &	P61P21P30İ1390:RCEC$123:JU$"0":TY$"A":980:216,0:PP$NO$ Z$8	PP$"J"PP$"N"Ģ23:37:868:NO$"":2350 w$B	PP$"N"P11:P21:2100 $L	P10 $V	OP2ī2630 $`	23:868:23::1:"< ESC >"::23:9:"ONDERBREKING.                 " $j	(16384)127ī2410 %t	(1$ #17:32:CC$ ^#OP2P11NO$CC$:X132:X27:Y117:JU$"0":TY$"N":980:216,0:CC$NO$ o#	19:32:DD$ #	OP2P11NO$DD$:X132:X27:Y119:JU$"0":TY$"N":980:216,0:DD$NO$ #$	23:1:868:23:20:"JUIST ?   (J/N) " ($.	NO$"":X137:X21:Y000:J:12:868:12:20:(GG$,9):11:20:868:TVA$"": A"   R"13:32:CA$ "OP2P11NO$CA$:X132:X28:Y113:JU$"0":TY$"N":980:216,0:CA$NO$ "15:32:CTVA$ #OP2P11NO$CTVA$:X132:X27:Y115:JU$"0":TY$"N":980:216,0:CTVA$NOTVA$:X120:X29:Y111:JU$"0":TY$"N":980:216,0:TVA$NO$ Q!OP2P11ī2240 f!(TVA$)0ī2230 !TVA(TVA$):XXTVA((TVA100)100) !YY97(TVA100)(((TVA100)97)97) 9"XXYYĢ12:1::"DIT NR. IS NIET OPGENOMEN DOOR DE BTW"::J11 "  110:210:470:CH$(CREC$,3) 2 45:15:AD$ ~ >OP2P11NO$AD$:X115:X224:Y15:JU$"0":TY$"A":980:216,0:AD$NO$  R7:15:LO$  \OP2P11NO$LO$:X115:X224:Y17:JU$"0":TY$"A":980:216,0:LO$NO$  p11:20:TVA$ :!zOP2P11NO$P2NN$"":1510:1970 K(NN$)1(NN$)65(NN$)90NN$"":1510:1970 jOP2İ110:210:470:2100 ~(NN$)1ī2080 F$(NN$,1) P31:670:I1:PC1İ1310:NN$"":1510:P30:1970 P31:IIPC1   NKI:560:1350:CH$(CREC$,3):196019:"DEBET ? ":20:32:(GG$,7) H3:15:NN$:ND$NN$:P31ī2100 NZ$"":X115:X224:Y13:JU$"0":TY$"A":980:216,0:NN$NO$:ND$(NN$BL$,24) 24:34,23:768,96:216,0:768,QQ:2790 (NN$)1NN$"0"NN$"":1510:1740 (NN$)1OX5:"ADRES ?":6:15:(GG$,24): Gb7:"STAD ?";::8:15:(GG$,24) tl11:"B.T.W. NUMMER ?":12:20:(GG$,9) v13:"ZAKENCIJFER ? (B.T.W. EXCL.)":14:32:(GG$,8) 15:"BTW CUMUL ?":16:32:(GG$,7) 17:"CREDIT ? ":18:32:(GG$,7) $ET":22:"MENU TERUG TE KEREN." K&16:868:16:12:"          KEUZE ? " 0X130:X21:Y116:JU$"0":TY$"N":980:216,0:OP$NO$:OP(OP$):OP2Ģ16:30:868:OP$"":1840 :1490:OP0ī2760 D34,0::1330 N3:"NAAM ?";:4:15::(GG$,24): "" 34,0:::Q$;QQ$; J"&";8);"KONSULTATIE / WIJZIGING ";40);"&"; TQQ$; "&";5);"       KREATIE KLANTEN.      ";40);"&"; QQ$;Q$  10:"1. KONSULTATIE / WIJZIGING." 12:"2. KREATIE." 20:"DUW TOETS NUL IN OM NAAR H$D$"READ INDEX,R":W1$D$"WRITE INDEX,R":C1$D$"CLOSE INDEX" I^2650 cr768,96:216,0:222,0 |(222)0Č768:(222)5İ2700:1720 768,QQ:1660 O1$ R1$;"0" WW$ C1$ P10:P20:P30:P60:OP0:OP$"":ND$"":NN$"":NZ$"000000000":BL$"                         ":Z$BL$:GG$"'''''''''''''''''''''''''''''''''''''''''''''''''" w,SP$(12) 6Q$"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&" @QQ$"&                                      &" ?JO1$D$"OPEN INDEX,S4,D1,L5":R1:TVA$"":CA$"":CTVA$"":CC$"":DD$"": ;3:15:868: 3:15:868:5:15:868:7:15:868:11:20:868:23:1:868 13:32:868:15:32:868:17:32:868:19:32:868:  D$(13)(4):D$;"NOMON I,C,O":(37):868 i"ZE$"0$TVA$,9) "xCTVA$(ZE$CTVA$,7) 7CA$(ZE$CA$,8) LDD$(ZE$DD$,7) aCC$(ZE$CC$,7) wND$(ND$BL$,24) AD$(AD$BL$,24) LO$(LO$BL$,24) RCEC$ND$AD$LO$TVA$CA$CTVA$CC$DD$: (NN$"":ND$"":NO$"":AD$"":LO$"":CP$""NAAR MENU":: iFNN$(CREC$,24):AD$(CREC$,25,24):LO$(CREC$,49,24):TVA((CREC$,73,9)):TVA$(TVA) PCA((CREC$,82,8)):CTVA((CREC$,90,7)):CC((CREC$,97,7)):DD((CREC$,104,7)):CA$(CA):CC$(CC):DD$(DD):CTVA$(CTVA) Z 	nTVA$(ZE q
"":1:1:868:1:5::" GEKOZEN KLANT BESTAAT REEDS. ":J11000:J::1:1:868:3:15:868:1330: "":1:1:868:1:5::"GEEN KLANTEN VOOR DEZE LETTER.":J11000:J::1:1:868:3:15:868:1330: 21:5::" '0' TERUGKEREN NO$"":990 .AX2ĖX1A:Y1:(Z$,X2A); CJU$"0"Č868: ZJX2(NO$):J0ı zJU$"D"NO$(ZE$,J)NO$: NO$NO$(Z$,J): "":1:1:868:1:5::"  GEKOZEN KLANT BESTAAT NIET.  ":J11000:J::1:1:868:3:15:868:1330:000 tPE8A0NO$"":1000 H~AX2(ZZ$)0AA1:NO$NO$V$:1000 yAX2(ZZ$)1AA1:NO$NO$V$:ZZ$"":1000 AX2(ZZ$)1AA1:NO$NO$V$:ZZ$(ZZ$,(ZZ$)1):1000 AX2ĺ(7):1000 (ZZ$)0(NO$)0990 :(Z$,(NO$))NO$O$ZZ$:ZZ$"":AA1:1000 3BPE21(ZZ$)0ī1000 xLPE21(ZZ$)1NO$NO$(ZZ$,1):ZZ$(ZZ$,(ZZ$)1):AA1:1000 VPE13(V$)0ī1190 `PE8A1ZZ$(NO$,1)ZZ$:NO$(NO$,(NO$)1):AA1:1000 jPE8A1ZZ$(NO$,1)ZZ$:NO$"":AA1:1(NO$):ZZ$"":1010 768 ! 2X1:Y1:NO$ @Y1:X1A UV$:PE(16384) xPE44PE34Ĺ(16368),0:1030 TY$"N"1070 $(PE48PE57)(PE27PE8PE13PE21)1000 .PE27NO$"":X1:(Z$,X2);:990 8PE21(ZZ$)1NO$N>D$;"CLOSE";F$: +RAK$(ZE$(AK),3) ?\RCEC$RCEC$AK$ Hp670 q800:PCPC1:PC$(ZE$(PC),4):750 KEY$(ZE$(KEY),3) O1$ W1$;(((F$)65)64)KEY (ZE$(PC1),3) C1$  P10NO$"" 768,QQ:995 A;F$;",R0" PC$:PC(PC$) 0D$;"CLOSE ";F$ TOP1P60P30NK1PCġ:1720 Z }D$;"OPEN ";F$;",S";S;",D1,L6" D$;"WRITE";F$;",R0" PC$ D$;"CLOSE";F$:  D$;"OPEN ";F$;",S";S;",D1,L115" *D$;"WRITE";F$;",R";PC 4RCEC$ D$;"CLOSE ";F$:P31ı @bND$(CREC$,24)OP2ġ:1290:1970 bvND$(CREC$,24)OP1İ1350: |NK((CREC$,3)):520 216,0:222,0:690 768:(222)5PC1:216,0:222,0: 768,QQ:680 D$;"OPEN ";F$;",S";S;",D1,L6" 	D$;"READ ")8)8)(((NN$,4,1))(((NN$,4,1))8)8)8: 5 >O1$ [R1$;(((F$)65)64)KEY zNK$:NK(NK$):OP2AKNK C1$ NK0OP2ı NK0OP1ġ:1270:1970 0D$;"OPEN ";F$;",S";S;",D1,L115" :D$;"READ ";F$;",R";NK DCREC$ N((NN$,3,1))8)8)8:410 Rh((NN$,1))65((NN$,1))90ġ:NN$"":1510:1970 r((NN$,2,1))65((NN$,2,1))90ġ:NN$"":1330:1970 |((NN$,4,1))65((NN$,4,1))90ġ:NN$"":1510:1970 F$(NN$,1) /KEY(((NN$,2,1))(((NN$,2,1)) 96((NN$,1))65((NN$,1))90ġ:NN$"":1510:1970 u@((NN$,2,1))65((NN$,2,1))90ġ:NN$"":1510:1970 J((NN$,3,1))65((NN$,3,1))90ġ:NN$"":1510:1970 TF$(NN$,1) ^KEY(((NN$,2,1))(((NN$,2,1))8)8)(((NN$,3,1))($,(NN$)1):220 ;
 (NN$,1)" "NN$(NN$,(NN$)1):230 ^
 (NN$)2ġ:NN$"":1510:1970 n
 J1(NN$) 
(NN$,J,1)" "NN$(NN$,J1)(NN$,((NN$)J)):260 
J 
(NN$)2ġ:NN$"":1510:1970 
"(NN$)3ī360 ,(NN$)2NN$NN$(90"ND$(ND$,(ND$)1):110 E	x (ND$,1)" "ND$(ND$,(ND$)1):120 M	 J1 ]	 JJ(ND$) 	 (ND$,J,1)" "NZ$NZ$(ND$,J):ND$(ND$,(ND$)J):110 	 J:ND$NZ$ND$:ND$(ND$BL$,24): 	 (NN$)2ġ:NN$"":1510:1970 
 (NN$,1)" "NN$(NN  QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 P S4 Z 33,40:34,0:::5:"KREATIE - KONSULTATIE KLANTEN":2:5:"-----------------------------"::34,23:1560 	n (ND$,1)"             
	 
	                                                                                                                                                                                                                                                                                                                                                                                                                                                   ıԍðӶıԍñӶıԍòӶıԍóӶıԍôӶıԍõӶıԍöӶıԍ                                                                                                                  EVEN WELKE TOETS IN":20:1:"OM NAAR HET MENU TERUG TE KEREN" O:L(16368),0 h:V(16384)127ī3670 w:`D$;"PR#6"                                                                                                                                        222)0Č790:(222)8(222)9ī3620 Q9(222)255Ĺ222,0:790,96:216,0:1760 _9D$;"PR#6 9$34,0:::1:5:" FOUTROUTINE " 9.4:1::"EEN VAN UW SCHIJVEN IS DEFEKT":6:1:"OF IS OVER ZIJN KAPACITEIT GEKOMEN." ?:B18:1:"DUW OM HET620 560                                                                                                                                                                                                                                                  10:"KIJK NA OF DE DRIVE-DEUREN" A5:12:"WEL GESLOTEN ZIJN." 1:20:"DUW OM HET EVEN WELKE TOETS IN OM":1:22:"HET PROGRAMMA TE STARTEN." 34,23:254:222,0:768,96:216,0:16368,0 (16384)127720 34,0::768,QQ:670 ZY3NCX$ XZX$"KLANT ":ZY3 'bOY$ 0lRY$ :vBID$ CCY$ U768,QQ:400 [ 768:(222)5(222)8Ĺ34,0:::100:1:4:"??????      ";ZX$;"SCHIJF         ??????"  1:6:"  BEVINDT ZICH NIET IN DRIVE NUMMER ";ZY;"  "::5:"OPEN STOCK,S5 ,D1,L8":RX$D$"READ STOCK,R0":CX$D$"CLOSE STOCK" OY$D$"OPEN CLIENT,S4,D1,L8":RY$D$"READ CLIENT,R0":CY$D$"CLOSE CLIENT" 768,96:216,0:222,0 768,QQ:670 16368,0 &ZX$" STOCK":ZY2 0OX$ :RX$ DBID$ :1::"EEN VAN UW SCHIJVEN IS DEFEKT  ":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCHREDEN." 18:1:"DUW OM HET EVEN WELKE TOETS IN OM    ":20:1:"NAAR HET MENU TERUG TE KEREN." (16368),0 (16384)127ī480 D$;"PR#6" COX$D$84)8OP$" "AA1:OP$" ":768,96:216,0:180 Hr768,96:216,0:180 U|"": b"": 768:(222)8(222)9ī430 (222)255Ĺ222,0:768,96:216,0: D$;"PR#6 34,0:::1:8:" FOUT ROUTINE "::2:8:"--------------" b4OP2İ390:D$;"RUN PC2 ,S6" <"OP3İ390:D$;"RUN PC3 ,S6" H,D$(4) k6OP0ė:390:D$;"RUN P0  ,S6" @OP4İ390:D$;"RUN PC4 ,S6" JOP5İ390:D$;"RUN PC5 ,S6" TOP6İ390:D$;"RUN PC6 ,S6" ^768:(16384)13(OP$)0ī230 0h(16336AA1:OP$(OP):180 , A36İ380:180 I (OP$)7OP(OP$):260 Z 768,QQ:80  34,0::3:5::"GEKOZEN MOGELIJKHEID BESTAAT NIET !"::5:5:"NIEUWE KEUZE MAKEN.   ":I12500::80 768,QQ:60 OP1İ390:D$;"RUN PC1 , S6" 13:"  3. VERVALDAGENBALANS." @
 15:"  4. VERKOOP JOURNAAL." `
 17:"  5. B.T.W. LISTING." 
 19:"  6. KLANTEN STATISTIEKEN." 
 34,23:16368,0 
 768,QQ:350:180 
 23:868:23:10:"                 KEUZE ? ";OP$ 
 23:A:OP  AWARE I.T.T.2020 EN APPLE II":2:5);"*******************************":3:30);"VERS.2.00" 	d 4:12);"KLANTEN BEHEER":5:12);"--------------" 	n 7:"  1. KREATIE / KONSULTATIE / EN":9:"     WIJZIGING KLANTEN." 	x 11:"  2. KLANTEN BALANS." 
 
 QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 < 768:34,23:33,40:D$(13)(4):D$;"NOMON I,C,O":16368,0 F 500 P 768:OP$"":A35:768,96:216,0:34,0 [	Z :1:5);"SOFT            					
							                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                              ңҤҤҤҤҤҤаӶıԍӰӶıԍӲӶıԍӳӶıԍӴӶıԍӵӶıԍӶӶıԍӷӶıԍӸӶıԍӹӶıԍӱD$  :luD$"CLOSE PRINTER":216,0 4:vuIM((BID$,1)) J:uPP((BID$,2,1)) P:u g:` CE=0 ==> FACTURE :a  CE=2 ==> FACTURE EXONEREE   :b  CE=1 ==> N. CREDIT  :c CE=3 ==> N. CREDIT EXONEREE    DIT EXONEREE                                        3.5) )9E4E4(E4(ES100)):E4(E4.5) <9TVAE1E2E3: M9 N(4);"PR#1" d9!NIM0ĺ(9);"80N"; j9*N 90u216,0:222,0:30020 9:u30030 9Du(222)5Ĺ222,0:216,0:BID$"1100":30060 9NuD$"OPEN PRINTER,S5,D1,L6" 9XuD$"READ PRINTER,R0" :buBI4$):K711(I6$):K811(I7$): 8E1((J0TB)100):E2((J1TM)100):E3((J2TH)100):E4((J4T8)100):E1(E1.5):E2(E2.5):E3(E3.5):E4((E4.5)) 8E1E1(E1(ES100)):E1(E1.5) 8E2E2(E2(ES100)):E2(E2.5) 9E3E3(E3(ES100)):E3(E)(RE$,2) O1$ W1$,0 'RE$ 0&C1$ ;:34,23 MD768,QQ:600 dND$;"RUN P0,S6,D1" xX768:D$;"PR#6" ~b v    20,25,8,1 768:768,QQ:600 D$;"RUN P0,S6,D1"   G                                                             E$RE$X$:ZZ$(ZZ$,(ZZ$)1):YY:A:X$;:AA1:270 b((RE$,2))31((RE$,2))1RE$"":240 ((RE$,4,2))12((RE$,4,2))1RE$"":240 ((RE$,2))79RE$"":240 (RE$,3,1)"/"(RE$,6,1)"/"RE$"":240 
RE$(RE$,2)(RE$,4,2(RE$)1):AA1:270 C|AXX1ZZ$ZZ$(RE$,1):RE$"":AA1:270 YAXXRE$"":270 `  r(X$)32270 ALZXX(ZZ$)0RE$RE$X$:YY:A:X$:AA1:270 ALZXX(ZZ$)1RE$RE$X$:ZZ$"":YY:A:X$;:AA1:270 4ALZXX(ZZ$)1R$ 
GG(((16384)7).5) 0
"GG370,340,310 9
,400 e
6(ZZ$)1RE$RE$ZZ$:ZZ$"":AA1:270 w
@(ZZ$)0270 
J(ZZ$)1RE$RE$(ZZ$,1):ZZ$(ZZ$,(ZZ$)1):AA1:270 
T  
^(RE$)LZ450 
h270 rAXX1ZZ$ZZ$(RE$,1):RE$(RE$,TE DATE,R" #	 R1$D$"READ DATE,R" ;	 C1$D$"CLOSE DATE" G	 34,0: ]	 5:12:"  DATUM" u	 7:12:"WIJZIGING" 	 8:12:"---------" 	 20:1:"    DATUM ----------> :" 	 M1: 	 YY,XX,LZ,TZ:ZZ$"":AXX 	YY:XX:"DD/MM/JJ" 
YY:A:X QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 F 33,40 P BL$"        " Z 768,QQ:640 d D$(13)(4) n D$;"NOMON,I,C,O"  O1$D$"OPEN DATE,S5,D1,L8" 
	 W1$D$"WRI            






	                                                                                                                                                                                                                                        6)"."(I5$,(I5$)5,3)"."(I5$,3) k7I6999999I6$(I6$,(I6$)6)"."(I6$,(I6$)5,3)"."(I6$,3) 7I7999999I7$(I7$,(I7$)6)"."(I7$,(I7$)5,3)"."(I7$,3) 8K152(I3$):K020(I0$):K311(I1$):K411(I2$):K511(I5$):K611(I999I4$(I4$,(I4$)6)"."(I4$,(I4$)5,3)"."(I4$,3) q6vI5999I5999999I5$(I5$,(I5$)3)"."(I5$,3) 6wI6999I6999999I6$(I6$,(I6$)3)"."(I6$,3) 6xI7999I7999999I7$(I7$,(I7$)3)"."(I7$,3) %7I5999999I5$(I5$,(I5$)uD$"CLOSEPRINTER":216,0 -vuIM((BID$,1)) CuSP((BID$,2,1)) Iu                                                                                                                                                                                      5ī793  5768,96:216,0:2222,0:768,QQ:800 JD$;"RUN PS6,S6" ^ 768:D$;"PR#6" 0u216,0:222,0:768,QQ:30020 :u30030 Du768:(222)5Ĺ222,0:BID$"1100":30060 NuD$"OPEN PRINTER,S5,D1,L6" XuD$"READ PRINTER,R0" buBID$ l EN 'ON LINE' STAAT." B10:"EDITIE GEBEURT OP LISTING PAPIER." ~15:1:"<";::"ESC";::"> TERUGKEREN NAAR HET MENU." 19:"DUW OM HET EVEN WELKE TOETS IN OM   ":21:"HET PROGRAMMA TE STARTEN.":34,23 (16384)127ī770 (16384)151$):K212(Q2$):K313(Q3$) C(4);"PR#";SP:IM0ĺ(9);"80N"; I z40);"------------------------------------"  K1);Q1$;K2);Q2$;K3);Q3$ LLLL4 (4);"PR#0": 34,0:4:"VERZEKERT U DAT DE PRINTER ONDER  ":6:"SPANNING(Q2):Q3$(Q3) #b(Q1$)0Q1$"" 8l(Q2$)0Q2$"" Mv(Q3$)0Q3$"" Q1999Q1999999Q1$(Q1$,(Q1$)3)"."(Q1$,3) Q2999Q2999999Q2$(Q2$,(Q2$)3)"."(Q2$,3) Q3999Q3999999Q3$(Q3$,(Q3$)3)"."(Q3$,3) K152(QU$(QU$,(QU$)3)"."(QU$,3) 5CR1K28(QU$) LCR2K219(QU$) c&CR3K231(QU$) 01);DA$;3);PR$;K1);NU$;K2);QU$ :LLLL1 DLL60ī585 E590 F(4);"PR#";SP IJLLLM::J:LL0 N(4);"PR#0": XQ1$(Q1):Q2$TIKEL NR. ";3);"RADIO";4);"TELE Z/WT";4);"TELE  KL." 2);"-----";10);"----------";9);"------------";3);"-----";4);"---------";4);"---------" LLLL12 K115(NU$) DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) QU$(QU) QU999Q  *" 9SP$;YM);"*                                  *" nSP$;YM);"*       RADIO  & TV  UIT STOCK     *" SP$;YM);"************************************" :6);"RADIO  TAKS" 6);"-----------" 7:2);"DATUM";10);"BESTEMMING";9);"AR0 #TD$;"DELETE FLDSORTIA ,S5,D1" ;h768:(222)8ī800 SrD$;"RUN PS6,S6,D1" |(4);"PR#";SP:YM22:IM0ĺ(9);"80N";:YM2 LL0ī490  SP$;YM);"************************************" SP$;YM);"*       KIJK  &  LUISTERGELD     1$(I),22,20):CR((T1$(I),1)) 1CR1Q1Q1QU DCR2Q2Q2QU WCR3Q3Q3QU "(NU$,1,1)"0"NU$(NU$,(NU$)1):290 ,380:I:600 1581 6768,96:216,0:222,0 @768:(222)0(222)6Ĺ768,96:216,0:222,0:360 J768,QQ:320 

x I3$ 
 R3$;"0" *
 NS$:NS(NS$) 3
 C3$ M
 768,96:216,0:222,0 h
 T1$(NS):768,QQ:360 q
 750 z
 O3$ 
 I1NS1 
 R3$;I 
 T1$(I1) 
 I:C3$ 
 I0NS2  NU$(T1$(I),10):QU((T1$(I),11,5)):DA$(T1$(I),16,6):PR$(T LM65:IM1LM65  	P SP$(14) 	Z ZE$"0000000000":O3$D$"OPEN FLDSORTIA,S5,D1,L44":I3$D$"OPEN FLDSORTIA,S5,D1,L6":R3$D$"READ FLDSORTIA,R":C3$D$"CLOSE FLDSORTIA":768,96:216,0:222,0 	d 768:(222)5Ĺ768,96:216,0:222,0:360 
n 768,QQ:10J QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 < 34,0:33,40:::9:"RADIO & TV  UIT STOCK":2:9:"---------------------":34,23::D$(13)(4):D$;"NOMON I,C,O" F 30000 	K            
	                                                                                                                                                                                                                          I2999999I2$(I2$,(I2$)6)"."(I2$,(I2$)5,3)"."(I2$,3) w5NI3999I3999999I3$(I3$,(I3$)3)"."(I3$,3) 5XI3999999I3$(I3$,(I3$)6)"."(I3$,(I3$)5,3)"."(I3$,3) 5bI4999I4999999I4$(I4$,(I4$)3)"."(I4$,3) :6lI4999 F4I0999999I0$(I0$,(I0$)6)"."(I0$,(I0$)5,3)"."(I0$,3) }4&I1999I1999999I1$(I1$,(I1$)3)"."(I1$,3) 40I1999999I1$(I1$,(I1$)6)"."(I1$,(I1$)5,3)"."(I1$,3) 4:I2999I2999999I2$(I2$,(I2$)3)"."(I2$,3) @5D IN OM ":21:"HET PROGRAMMA TE STARTEN.":34,23 I3(16384)127ī1760 c3(16384)155ġ:350 i3 u3D$;Z3$ 3I0$(I0):I1$(I1):I2$(I2):I3$(I3):I4$(I4):I5$(I5):I6$(I6):I7$(I7)  4I0999I0999999I0$(I0$,(I0$)3)"."(I0$,3)SCHE EDITIE":10:"------------------":1790 x28:"KIJK NA OF DE PRINTER ONDER ":10:"SPANNING EN 'ON LINE' STAAT." 214:"DE EDITIE GEBEURT OP LISTING PAPIER." 217:1::"<ESC>";::" TERUG NAAR HET MENU." 0319:"DUW OM HET EVEN WELKE TOETS"(ZE$(M6),9):M6M6 F1M70M7M7:M7$"-"(ZE$(M7),9):M7M7 e1M50M5$(ZE$(M5),10) 1M60M6$(ZE$(M6),10) 1M70M7$(ZE$(M7),10) 1O5$ 1W5$ 1M0$M1$M2$M3$M4$M5$M6$M7$ 1C5$: -234,0:4:10:"PERIODI0TM20M2$(ZE$(M2),10) L0^M30M3M3:M3$"-"(ZE$(M3),9):M3M3 k0hM30M3$(ZE$(M3),10) 0rM40M4M4:M4$"-"(ZE$(M4),9):M4M4 0|M40M4$(ZE$(M4),10) 0M50M5M5:M5$"-"(ZE$(M5),9):M5M5 1M60M6M6:M6$"-;K8);M7$: "/LY$:ILLLM::I 3/(4);"PR#0" b/"M00M0M0:M0$"-"(ZE$(M0),9):M0M0 /,M00M0$(ZE$(M0),10) /6M10M1M1:M1$"-"(ZE$(M1),9):M1M1 /@M10M1$(ZE$(M1),10) /JM20M2M2:M2$"-"(ZE$(M2),9):M2M2 ."(M7$,(M7$)5,3)"."(M7$,3) .K152(M3$):K020(M0$):K311(M1$):K411(M2$):K511(M5$):K611(M4$):K711(M6$):K811(M7$) .LY$:" ":LLLL4 /"TOTALEN PERIODE      ";K1);M3$:K0);M0$;K3);M1$;K4);M2$;K7);M6$;K5);M5$;K6);M4$$,(M6$)3)"."(M6$,3) O-M7999M7999999M7$(M7$,(M7$)3)"."(M7$,3) -M5999999M5$(M5$,(M5$)6)"."(M5$,(M5$)5,3)"."(M5$,3) -M6999999M6$(M6$,(M6$)6)"."(M6$,(M6$)5,3)"."(M6$,3) !.M7999999M7$(M7$,(M7$)6)",(M3$)6)"."(M3$,(M3$)5,3)"."(M3$,3) d,M4999M4999999M4$(M4$,(M4$)3)"."(M4$,3) ,M4999999M4$(M4$,(M4$)6)"."(M4$,(M4$)5,3)"."(M4$,3) ,M5999M5999999M5$(M5$,(M5$)3)"."(M5$,3) -M6999M6999999M6$(M6127ī1510 D$;"PR#6" ;0u216,0:222,0:768,QQ:30020 F:u30030 sDu768:(222)5Ĺ222,0:BID$"1100":30060 NuD$"OPEN PRINTER,S5,D1,L6" XuD$"READ PRINTER,R0" buBID$ luD$"CLOSEPRINTER":216,0 vuIM((BID$,1)) uSP((BID$,2,1)) :2:8:"   ------------   " 4:1::"EEN VAN UW SCHIJVEN IS DEFEKT  ":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCHREDEN." 18:1:"DUW OM HET EVEN WELKE TOETS IN OM    ":20:1:"NAAR HET MENU TERUG TE KEREN." (16368),0 
(16384)ANTENSTATISTIEKEN' SCHIJF BEVINDT":8:"ZICH NIET IN DRIVE '3'." mx(222)5(222)9Ĺ222,0:768,96:216,0 x34,23 ~ 768:(222)8(222)9ī1460 (222)255Ĺ222,0:768,96:216,0 D$;"PR#6 34,0:::1:8:"   FOUT ROUTINE   ":RUGKEREN NAAR HET MENU." p219:"DUW OM HET EVEN WELKE TOETS IN OM   ":21:"HET PROGRAMMA TE STARTEN.":34,23 <(16384)127ī1340 F(16384)155ġ:1030 P ZD$;"PR#6": d34,3::16368,0 @n4:"         !!! VERGISSING !!!":6:"'KL768:(222)5(222)9İ1380:1210 5768,QQ:1230 >O6$ IR6$;0 RBI$ [ C6$ a
 34,0:4:"KIJK NA DAT DE PRINTER":6:"ONDER SPANNING EN 'ON LINE' STAAT." 10:"EDITIE GEBEURT OP LISTING PAPIER." (15:"<";::"ESC";::">  TE i34,3:35,18:16368,0::4:"PLAATS EEN 'KLANTEN STATISTIEKEN'":6:"SCHIJF IN DRIVE NR. '3'." 34,23:222,0:768,96:216,0 (16384)127ī1220 34,3:35,24::10::"  STATISTIEKEN BEHANDELING IN VERLOOP. "::34,23 1240 "STATISTIEKEN'":8:"SCHIJF IN DRIVE '3' PLAATSEN." HL10:"" iV34,23:222,0:768,96:216,0 `(16384)127ī1120 e1140 j768:(222)5Ĺ222,0:768,96:216,0:1380:1090 t768,QQ:1130 ~06$ R6$;0 BI$ C6$  8 D$;"RUN PS6,S6,D1" H$(222)0Č768:(222)9İ1080:1090:770 v.(222)5NR1:768,96:216,0:222,0:820 8D$;"DELETE FPDSTAT";DF$: 2B34,3:35,18::16368,0:4:"SCHIJF IN DRIVE NR. '3' IS VOLGESCHREVEN":6:"WILT U EEN LEGE 'KLANTEN DRIVE NR. 3." | 18:1:"DUW OM HET EVEN WELKE TOETS IN OM":20:1:"NAAR HET MENU TERUG TE KEREN.":16368,0:1340:34,23 222,0:216,0:768,QQ:1040 D$;"DELETE FLDSORTI,S5,D1" 768,96:216,0:222,0:768,QQ:1430 35,24:(222)0Č76"DA$ RI8$ \W8$;"0" $fNS$ -pC8$ 6zO8$ DI1NS1 OW8$;I ]T1$(I1) dI mC8$ vI7$ W7$;"0" ((ZE$(NR1),4)) C7$ O7$ W7$;NR DA$ C7$ 34,3:35,24::10:"PLAATS 'KLANTEN' SCHIJF IN 96:216,0:222,0:768,QQ:1060 (I7$ D R7$;"0":NR$:NR(NR$) M*C7$ a4DA$(T1$(0),6) t>768,QQ:1430 HO8$D$"OPEN FPDSTAT"DA$", S4, D1, L96":I8$D$"OPEN FPDSTAT"DA$", S4, D1, L6":W8$D$"WRITE FPDSTAT"DA$",R":C8$D$"CLOSEFPDSTATTY$"TV  KL." FK1);NR$;4);DA$;5);NN$;K4);RA$;K5);QV$;4);TY$ T23);AD$ b23);LO$ h LLLL4:LL60ī730 740 (4);"PR#";SP JLLLM::J:LL0 (4);"PR#0": 768,QQ:1430 1200 768,QQ:1430 768, ?LLLL13 %DNRNR1:NR$(NR) 3NQV$(QV) CXK18(NR$) [bK436(NN$)(RA$) llK513(QV$) vDA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) QV999QV$(QV$,(QV$)3)"."(QV$,3) TY1TY$" RADIO " TY2TY$"TV Z/WT" TY3TUM: ";DJ$ (63);"---------------": &5);"NR.";2);"VERKOOP DATUM";5);" KLANTEN GEGEVENS ";4);"ARTIKEL NR. ";4);" VERKOOP ";4);"TYPE" 05);"---";2);"-------------";5);" ---------------- ";4);"------------";4);" ------- ";4);"----" :***************************" QSP$;YM);"*      KIJK  &  LUISTERGELD        *" SP$;YM);"*                                  *" SP$;YM);"*      RADIO  & TV  VERKOPEN       *" SP$;YM);"************************************" 
:63);"DA:RA$(T1$(I),79,10):QV((T1$(I),89,5)):TY((T1$(I),1)) h|(RA$,1,1)"0"RA$(RA$,(RA$)1):380 t450:I 768,96:216,0:222,0 726 750 (4);"PR#";SP:YM23:IM0ĺ(9);"80N";:YM3 LL0ī580  SP$;YM);"********* R3$;"0" NS$:NS(NS$) 'C3$ A768,96:216,0:222,0 ]"T1$(NS):768,QQ:1430 g,1300 p6O3$ ~@I1NS1 JR3$;I TT1$(I1) ^I:C3$ hI0NS2 ;rDA$(T1$(I),6):NN$(T1$(I),7,24):AD$(T1$(I),31,24):LO$(T1$(I),55,24)"CLOSE DATESTAT"  160 H 768:(222)5Ĺ768,96:216,0:222,0:430 Z 768,QQ:150 c O4$ l R4$ u DJ$  DJ$(DJ$,2)"/"(DJ$,3,2)"/"(DJ$,2)  C4$  230  768:(222)5Ĺ768,96:216,0:222,0:1030  768,QQ:220  I3$ E DATE":768,96:216,0:222,0 
 O6$D$"OPEN FPDSTATCLIENT,S4,D1,L8":R6$D$"READ FPDSTATCLIENT,R0":C6$D$"CLOSE FPDSTATCLIENT"  O7$D$"OPEN DATESTAT,S4,D1,L8":R7$D$"READ DATESTAT,R":I7$D$"OPEN DATESTAT,S4,D1,L6":W7$D$"WRITE DATESTAT,R":C7$D$C,O" 	Z 30000 %	_ LM65:IM1LM65 3	d SP$(14) 	n ZE$"0000000000":O3$D$"OPEN FLDSORTI ,S5,D1,L96":I3$D$"OPEN FLDSORTI ,S5,D1,L6":R3$D$"READ FLDSORTI ,R":C3$D$"CLOSE FLDSORTI " 
x O4$D$"OPEN DATE,S5,D1,L8":R4$D$"READ DATE,R":C4$D$"CLOS QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 F 768,QQ:1430 	P 34,0:33,40:::9:"RADIO  & TV  VERKOPEN":2:9:"---------------------":34,23::D$(13)(4):D$;"NOMON I,            
	 
                                                                                                                                                                                                                    
	                                                                                                                                                                                                                                                Du768:(222)5Ĺ222,0:BID$"1100":30060 JNuD$"OPEN PRINTER,S5,D1,L6" dXuD$"READ PRINTER,R0" nbuBID$ luD$"CLOSEPRINTER":216,0 vuIM((BID$,1)) uSP((BID$,2,1)) u   $                                                                 8:1:"DUW OM HET EVEN WELKE TOETS IN OM":20:1:"NAAR HET MENU TERUG TE KEREN." a(16368),0 y(16384)127ī920 D$;"PR#6"   (4);"PR#";SP JLLLM::J (4);"PR#0" LL0: 0u216,0:222,0:768,QQ:30020 :u30030 *22)8(222)9ī870 ;R(222)255Ĺ222,0:768,96:216,0: I\D$;"PR#6 f34,0:::1:8:"   FOUT ROUTINE   "::2:8:"   ------------   " p4:1::"EEN VAN UW SCHIJVEN IS DEFEKT  ":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCREDEN." Q1DITIE GEBEURT OP LISTING PAPIER." [16:"<";::"ESC";::">  TERUGKEREN NAAR HET MENU." 19:"DUW OM HET EVEN WELKE TOETS IN OM":21:"HET PROGRAMMA TE STARTEN.":34,23  (16384)127ī790 *(16384)155ġ:380 4 >D$;"PR#6" H(2 &(4);"PR#";SP:IM0ĺ(9);"80N"; , ]40);"------------------------------------" c K1);Q1$;K2);Q2$;K3);Q3$ LLLL4 (4);"PR#0": 34,0:4:"KIJK NA DAT DE PRINTER ONDER  ":6:"SPANNING EN 'ON LINE' STAAT." !10:"EQ1$"" v(Q2$)0Q2$"" 0(Q3$)0Q3$"" gQ1999Q1999999Q1$(Q1$,(Q1$)3)"."(Q1$,3) Q2999Q2999999Q2$(Q2$,(Q2$)3)"."(Q2$,3) Q3999Q3999999Q3$(Q3$,(Q3$)3)"."(Q3$,3)  K152(Q1$):K212(Q2$):K313(Q3$)$(QU) 4QU999QU$(QU$,(QU$)3)"."(QU$,3) JCR1K28(QU$) a&CR2K219(QU$) x0CR3K231(QU$) :1);DA$;3);PR$;K1);NU$;K2);QU$ DLLLL1 NLL60İ1000 X(4);"PR#0": bQ1$(Q1):Q2$(Q2):Q3$(Q3) l(Q1$)0);" HERKOMST ";9);"ARTIEKEL NR.";3);"RADIO";4);"TELE Z/WT";4);"TELE  KL." 3);"-----";9);" -------- ";9);"------------";3);"-----";4);"---------";4);"---------" LLLL12 K115(NU$) DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) QULD         *" BSP$;YM);"*                                  *" wSP$;YM);"*        RADIO & TV AANKOPEN       *" SP$;YM);"************************************" :9);"    RADIO  TAKS   " 9);"------------------" M:3);"DATUM";9ELETE FLDENTRE,S4,D1" -h768:(222)8ī830 Dr768:768,QQ:360 \|D$;"RUN PS6,S6,D1" (4);"PR#";SP:YM22:IM0ĺ(9);"80N";:YM2 LL0ī500  SP$;YM);"************************************" SP$;YM);"*       KIJK & LUISTERGE),22,20):CR((T1$(I),1)) -CR1Q1Q1QU @CR2Q2Q2QU S"CR3Q3Q3QU ,(NU$,1,1)"0"NU$(NU$,(NU$)1):300 6390:I:610 @768,96:216,0:222,0 J768:(222)6Ĺ768,96:216,0:222,0:360 T768,QQ:330 Y1000 ^D$;"D I3$ 
 R3$;"0" &
 NS$:NS(NS$) /
 C3$ I
 768,96:216,0:222,0 d
 T1$(NS):768,QQ:370 m
 760 v
 O3$ 
 I1NS1 
 R3$;I 
 T1$(I1) 
 I:C3$ 
 I0NS2 NU$(T1$(I),10):QU((T1$(I),11,5)):DA$(T1$(I),16,6):PR$(T1$(I LM65:IM1LM65  	Z SP$(14) 	d ZE$"0000000000":O3$D$"OPEN FLDENTRE,S4,D1,L44":I3$D$"OPEN FLDENTRE,S4,D1,L6":R3$D$"READ FLDENTRE,R":C3$D$"CLOSE FLDENTRE":768,96:216,0:222,0 	n 768:(222)5Ĺ768,96:216,0:222,0:370 	x 768,QQ:110 
 QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 F 34,0:33,40:::9:" RADIO & TV AANKOPEN ":2:9:" ------------------- ":34,23::D$(13)(4):D$;"NOMON I,C,O" J 30000 	L            
	                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    
	                                                                                                                                                                                                                                                216,0 $vuIM((BID$,1)) /$uSP((BID$,2,1)) 5$u   A                                                                                                                                                                                                        TERUG TE KEREN." !#fN(16368),0 ;#pN(16384)127ī20080 J#zND$;"PR#6" l#0u216,0:222,0:768,QQ:30020 w#:u30030 #Du768:(222)5Ĺ222,0:BID$"1100":30060 #NuD$"OPEN PRINTER,S5,D1,L6" #XuD$"READ PRINTER,R0" #buBID$ $luD$"CLOSEPRINTER":$;"PR#6 O">N34,0:::1:8:"   FOUT ROUTINE   "::2:8:"   ------------   " "HN4:1::"EEN VAN UW SCHIJVEN IS DEFEKT  ":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCHREDEN." #\N18:1:"DUW OM HET EVEN WELKE TOETS IN OM ":20:1:"NAAR HET MENU;:2:3:"--------------------------------":34,23::D$(13)(4):D$;"NOMON I,C,O" Z!l m!v768,QQ:1930 !{34,0:35,23:34,23 !D$"RUN PC0,S6,D1" !768:D$"PR#6": ! N(222)8(222)9ī20030 !*N(222)255Ĺ222,0:768,96:216,0: "4NDM...: ";::"D";::"D/MM/JJ":15:"  EINDE DATUM...: DD/MM/JJ" | D18:"<";::"ESC";::">   ANDERE STATISTIEKEN SCHIJF."  N20:"<";::"SPACE";::"> TERUGKEREN NAAR HET MENU.":35,17  X T!b34,0:33,40:::3:"**    VERKOOPSSTATISTIEKEN    **" ^&34,3:::4:"SCHIJF GEKREEERD OP .....: ";DC$:6:"EERSTE PERIODE ......... : ";DD$ 08:"LAASTE PERIODE ......... : ";DF$::10:"WELKE PERIODE WILT U UITPRINTEN   ?":11:"-----------------------------------" ? :34,12::13:"  BEGIN DATU(16384)127ī1750  x34,3::4:"ER BEVINDT ZICH GEEN 'KLANTEN-":6:"STATISTIEKEN'SCHIJF IN DRIVE NR. '3'." 19:"DUW OM HET EVEN WELKE TOETS IN VOOR   ":21:"HET STARTEN VAN HET PROGRAMMA.":34,23 16368,0 (16384)127ī1810 (16384)127ī1680 0(16384)155ġ:1910 6 35,23:34,3::4:"PLAATS GEKOZEN 'KLANTEN STATISTIEKEN'":6:"SCHIJF IN DRIVE NR. '3'." 19:"DUW OM HET EVEN WELKE TOETS IN OM   ":21:"HET PROGRAMMA TE STARTEN.":34,23 16368,0 5Ĺ222,0:BID$"1100":30060 ;NuD$"OPEN PRINTER,S5,D1,L6" UXuD$"READ PRINTER,R0" _buBID$ |luD$"CLOSEPRINTER":216,0 vuIM((BID$,1)) uPP((BID$,2,1)) u   (                                                                                ":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCHREDEN." (18:1:"DUW OM HET EVEN WELKE TOETS IN OM":20:1:"NAAR HET MENU TERUG TE KEREN." 2(16368),0 <(16384)127ī1340 FD$;"PR#6" 0u216,0:222,0:790,QQ:30020 :u30030 Du790:(222)1250 D$;"RUN PS6,S6" -790:D$;"PR#6" J(222)8(222)9ī1290 r(222)255Ĺ222,0:790,96:216,0:  D$;"PR#6 
34,0:::1:8:"   FOUT ROUTINE   "::2:8:"   ------------   " 14:1::"EEN VAN UW SCHIJVEN IS DEFEKT  NIET   ":12:1:"IN DRIVE '2'." 17:1:"WILT U DIT BESTAND EERST KREEREN. ":19:1:"DUW OM HET EVEN WELKE TOETS IN OM  ":21:1:"HET PROGRAMMA TE STARTEN.":34,23 (16384)1281210 34,0:10:1:958:34,23: 2116,0:222,0:790,QQ:";9);"    ";1);" STOCK. ";1);" STOCK. ";1);"  %  ";3);"CUMUL " 2);" ------- ";9);"------------";8);"----";1);" -------";1);" -------";1);"-----";2);"-------" LLLL4:D$;"PR#0":  16368,0:34,0:10:1:"STOCK BESTAND BEVINDT ZICH B60);" DATUM  ";DA$ EL60);" ------ ":(4);"PR#0":LLLL11: X`(4);"PR#";PP ojIM0ĺ(9);"80N"; t2);" ARTIKEL ";9);"OMSCHRIJVING";8);"TYPE";1);" AKTUELE";1);" VERKOOP";1);"MARGE";2);"VERKOOP" C~2);" NUMMEN. ";9);"           *******************" /DD$;YM);"*";34);"*" dDD$;YM);"*    VERKOOPSSTATISTIEKEN EDITIE   *" DD$;YM);"*";34);"*" DD$;YM);"************************************" $:DD$;2);"FAMILIE : ";((NF$)); .2);FA$ 8DD$;2);"-------" "PR#";PP:IM0ĺ(9);"80N"; 1);NU$;12(NU$));DE$;31(DE$)(CR$));CR$;9(SA$));SA$;9(RT$));RT$;6(MA$));MA$;9(VA$));VA$ (4);"PR#0": (4);"PR#";PP:YM22:IM0ĺ(9);"40N";:DD$(14):YM2  DD$;YM);"*****************$)): pSA$((SA$)): *zRT$((RT$)): [(VA$)999VA$(VA$,(VA$)3)"."(VA$,3) (SA$)999SA$(SA$,(SA$)3)"."(SA$,3) (RT$)999RT$(RT$,(RT$)3)"."(RT$,3) MA$MA$"%" LL60İ360:1000:1120 LLLL1 (4);)ī850 ANF$(TAB$(I),2):(NF$)(AF$)İ360:260:1000:1120 uAF$NF$:NU$(TAB$(I),3,10):KC%((TAB$(I),3)) NU$ZE$I(25KB)KA1ī850  (NU$,1)"0"NU$(NU$,(NU$)1):800 4400 >870 HII1:760 R360:1230 fVA$((VASC";::">  TERUGKEREN NAAR HET MENU." 20:"   DUW OM HET EVEN WELKE TOETS IN OM ":22:"   HET PROGRAMMA TE STARTEN.":255:34,23 (16384)127ī730 (16384)155ī1230 I0:AF$(TAB$(I),2):NF$AF$:260:1000:1120 TAB$(I)(ZE$,10 ^34,0:::5:" VERKOOPSSTATISTIEKEN EDITIE ":5:"*****************************"::34,4 190:4:"   VERZEKERT U DAT DE PRINTER ONDER  ":6:"   SPANNING EN 'ON LINE' STAAT." 10:4:"EDITIE GEBEURT OP LISTING PAPIER." &15:"   <";::"E lI1KBPL vR2$;I J024:TAB$(K):TAB$(K)(TAB$(K),11,2)(TAB$(K),10)(TAB$(K),3):(TAB$(K),3,10)(ZE$,10)ī660 KK1:J,I C2$:790,96:216,0:222,0:TAB$(K)"":38000:TAB$(K)(ZE$,10):  LL0:I0:16368,0:34,0:AF$"":NF$""(STREC$,50)(ZE$,5)(STREC$,9) .C1$ 4 N222,0:790,96:216,0 l790:(222)5İ1190:530 ~&790,QQ:540 0I2$ :R2$;"0" DR0TAB$ NC2$ XKB((R0TAB$,6,5)):KA((R0TAB$,5)):KZ(KB25)25:TAB$(KZ):KA0PL1  bO2$R1$;KC% STREC$ DE$(STREC$,25):SA$(STREC$,26,5):CR$(STREC$,50,1):RT$(STREC$,51,5):MA$(STREC$,56,3):VA$(STREC$,6) (CR$)1CR$"RADIO":480 (CR$)2CR$"TV/NB":480 (CR$)3CR$"TV/CL":480 CR$"" W1$;KC% %:216,0:222,0:530 -790,96:216,0:222,0 L790:(222)5FA$"":330 ^790,QQ:270 g"O5$ w,R5$;(NF$) 6FA$ @C5$ J790,96:216,0:222,0:790,QQ:540 T h(4);"PR#";PP rKKLLLM::KK |(4);"PR#0":LL0: O1$ ,R":C5$D$"CLOSE FAFO" / 790:(222)5ī170 A 790,QQ:140 \ D$;"BLOAD SORT,S6,D1" v 790,96:216,0:222,0  790:(222)5DA$"":240  790,QQ:180  O4$  R4$  DA$:DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2)  C4$  790,96DSTOCK" 
n O2$D$"OPEN FPDTABLE,S5,D1,L400":R2$D$"READ FPDTABLE,R":C1$D$"CLOSE FPDTABLE":I2$D$"OPEN FPDTABLE,S5,D1,L15" 
x O4$D$"OPEN DATE ,S5,D1,L8":R4$D$"READ DATE ,R0":C4$D$"CLOSE DATE"  O5$D$"OPEN FAFO ,S5,D1,L30":R5$D$"READ FAFO 96:216,0:37998 u	P D$(13)(4):D$;"NOMON I,C,O":LL0:ZE$"0000000000":Z$"             ":BL$Z$:GG$"''''''''''" 	T 30000 	V LM65:IM1LM65 
d O1$D$"OPEN FPDSTOCK,S5,D1,L66":R1$D$"READ FPDSTOCK,R":W1$D$"WRITE FPDSTOCK ,R":C1$D$"CLOSE FP QQ104:(57350)QQQQ8 x 790,96:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96  PP1 2 LM65 	< 34,0:33,40:::1:5:"VERKOOPSSTATISTIEKEN EDITIE":2:5:"---------------------------"::34,23:222,0:790,            
	                                                                                                                                                                                                                                               z          #              ?                        ?                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                             	                                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                         Ҡ                                                                                                                                                                                         ñ" ò ó ô4 õ !ö  Ԡ          "Ӷ ӷ Ӹ ӹ ӱ 
Ԡ 	ð          а ӱ4 Ӱ Ӳ ӳ" Ӵ#  ӵ 3$,3) KbI3999999I3$(I3$,(I3$)6)"."(I3$,(I3$)5,3)"."(I3$,3) lI4999I4999999I4$(I4$,(I4$)3)"."(I4$,3) vI4999999I4$(I4$,(I4$)6)"."(I4$,(I4$)5,3)"."(I4$,3) I5999I5999999I5$(I5$,(I5$)3)"."(I5$,3) ."(I1$,3) Q:I1999999I1$(I1$,(I1$)6)"."(I1$,(I1$)5,3)"."(I1$,3) DI2999I2999999I2$(I2$,(I2$)3)"."(I2$,3) NI2999999I2$(I2$,(I2$)6)"."(I2$,(I2$)5,3)"."(I2$,3) XI3999I3999999I3$(I3$,(I3$)3)"."(IL9 WI0$(I0):I1$(I1):I2$(I2):I3$(I3):I4$(I4):I5$(I5):I6$(I6):I7$(I7) I0999I0999999I0$(I0$,(I0$)3)"."(I0$,3) &I0999999I0$(I0$,(I0$)6)"."(I0$,(I0$)5,3)"."(I0$,3) 0I1999I1999999I1$(I1$,(I1$)3)"" " W"VOLGN     --DATUM-  ---------KLANT-----------     FAKT.N      -BEDRAG--" "          .BB.";("  "(TB),2);"%.. .BB.";("  "(TM),2);"%.. .BB.";("  "(TH),2);"%.. .BIJ.";("  "(T8),2);"%. .VRIJGES. ..BTW.... .BIJ.T..." " ":LLLA$(RF$,29,6):FA$(RF$,4):CO((RF$,1)):ES0: <20000 LLL0ī680 LY$"===============================================================================" " ":LY$ " " 24);"V  E  R  K  O  O  P        B  O  E  K ." " ":LY$ :I:C3$:980 &^222,0:216,0:1790 <hD$;"RUN PC0";Z1$ r                                        => LECTURE D'UN RECORD FACTURE |R3$;I RF$  1J0((RF$,35,8)):J1((RF$,43,8)):J2((RF$,51,8)):J4((RF$,59,8)):NO$(RF$,5,24):D:FA$"* "FA$:330 )6CO1FA$"* "FA$ @ES0TVA((J0TB)100)((J1TM)100)((J2TH)100):E4((J4T8)100):TVA(TVA.5):E4(E4.5) AES0İ2000:                            => CALCUL DE LA TVA EN CAS D'ESCOMPTE JMTJ0J1J2TVAE4 T420(CU$,41,10)):I5((CU$,51,10)):I6((CU$,61,10)):I7((CU$,71,10)):NU((CU$,4)) C2$:M0I0:M1I1:M2I2:M3I3:M4I4:M5I5:M6I6:M7I7 216,0:222,0:1730 O3$ I1NS1:370:J30 "CO2TVA0:E40:J40:330 ,CO3TVA0:E40:J40222,0 & (222)5ĺD$;"RUN PC0"Z1$ 0 140 9 I3$ F R3$;"0" Y NS$:NS(NS$) b C3$ t 216,0:222,0  (222)5NU1:270  210  O2$  R2$ U CU$:I0((CU$,10)):I1((CU$,11,10)):I2((CU$,21,10)):I3((CU$,31,10)):I4(Z2$",L82":W5$D$"WRITE FLDTOFACT,R0":C5$D$"CLOSE FLDTOFACT" \< SP$(12):216,0:222,0 F (222)5TB6:TM16:TH25:130 P 70 Z O1$ d R1$ n TVA$:TB((TVA$,2)):TM((TVA$,3,2)):TH((TVA$,5,2)):T8((TVA$,7,2)) x C1$  216,0:$D$"OPEN FPDCUFACT"Z2$",L86":R2$D$"READ FPDCUFACT,R0":W2$D$"WRITE FPDCUFACT,R0":C2$D$"CLOSE FPDCUFACT" 
( O3$D$"OPEN FLDFACT"Z2$",L69":I3$D$"OPEN FLDFACT"Z2$",L6":R3$D$"READ FLDFACT,R":C3$D$"CLOSE FLDFACT" @2 O5$D$"OPEN FLDTOFACT"S5,D1" (	 LM66: NBRE DE LIGNES PAPIER 	
 34,0:33,40:::5:"VERKOOPBOEK EDITIE":2:5:"------------------"::D$(13)(4):D$;"NOMON I,C,O":ZE$"0000000000" 	 30000 	 O1$D$"OPEN TVA"Z1$",L10":R1$D$"READ TVA,R0":C1$D$"CLOSE TVA" p
 O22)  ********************************* Q  *                               * {  *   PC4  FACTURIER SORTIE       *     *                               *      *********************************   	 Z1$",S6,D1":Z2$",S4,D1":Z3$"PR#6":Z4$",            
	  
	 	  


                                                                                                                                              
 QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 < 768:34,0:33,40:D$(13)(4):D$;"NOMON I,C,O" F 768:OP$"":A35:768,96:216,0 D	P :2:5);"SOFTWARE I.T.T.2020 EN APPLE I            
	                                                                                                                                                                                                                              J3999999J3$(J3$,(J3$)6)"."(J3$,(J3$)5,3)"."(J3$,3) ?J4999999J4$(J4$,(J4$)6)"."(J4$,(J4$)5,3)"."(J4$,3) @E4999999E4$(E4$,(E4$)6)"."(E4$,(E4$)5,3)"."(E4$,3) HMT999MT999999MT$(MT$,(MT$)3)"."(M3) HJ1999999J1$(J1$,(J1$)6)"."(J1$,(J1$)5,3)"."(J1$,3)  J2999J2999999J2$(J2$,(J2$)3)"."(J2$,3) *J2999999J2$(J2$,(J2$)6)"."(J2$,(J2$)5,3)"."(J2$,3) 4J3999J3999999J3$(J3$,(J3$)3)"."(J3$,3) B>(J2$)0J2$"" $(J3$)0J3$"" 9(J4$)0J4$"" N(E4$)0E4$"" J0999J0999999J0$(J0$,(J0$)3)"."(J0$,3) J0999999J0$(J0$,(J0$)6)"."(J0$,(J0$)5,3)"."(J0$,3) J1999J1999999J1$(J1$,(J1$)3)"."(J1$,;I7$ LLLL2 =DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) RCO2J3J0:J00 pCO3J3J0:J00:L3L3J0 J0$(J0):J1$(J1):J2$(J2):J3$(J3):J4$(J4):E4$(E4):MT$(MT):TVA$(TVA):NU$(NU) (J0$)0J0$"" (J1$)0J1$"" 7999999I7$(I7$,(I7$)6)"."(I7$,(I7$)5,3)"."(I7$,3) K165(I3$):K020(I0$):K311(I1$):K411(I2$):K511(I5$):K611(I4$):K711(I6$):K811(I7$) ;"REPORTS";K1);I3$:K0);I0$;K3);I1$;K4);I2$;K7);I6$;K5);I5$;K6);I4$;K8)6I6999I6999999I6$(I6$,(I6$)3)"."(I6$,3) mI7999I7999999I7$(I7$,(I7$)3)"."(I7$,3) I5999999I5$(I5$,(I5$)6)"."(I5$,(I5$)5,3)"."(I5$,3) I6999999I6$(I6$,(I6$)6)"."(I6$,(I6$)5,3)"."(I6$,3) ?I GESLOTEN ZIJN." e1:20:"DUW OM HET EVEN WELKE TOETS IN OM ":1:22:"HET PROGRAMMA TE STARTEN." 34,23:254:222,0:768,96:216,0:16368,0 (16384)127780 34,0:  ZY3680 *620                                                RY$ BID$ CY$ *768,QQ:450 0 768:(222)5(222)8Ĺ34,0:::100:1:4:"??????      ";ZX$;" SCHIJF        ??????" 1:6:"BEVINDT ZICH NIET IN DRIVE NR. ";ZY;"."::5:10:"KIJK NA OF DE DRIVE DEUREN" 5:12:"WEL":CX$D$"CLOSE STOCK" f:OY$D$"OPEN CLIENT,S4,D1,L8":RY$D$"READ CLIENT,R0":CY$D$"CLOSE CLIENT" D768,96:216,0:222,0 N768,QQ:730 X16368,0 bZX$"  STOCK":ZY2 lOX$ vRX$ BID$ CX$ ZX$"KLANTEN":ZY3 OY$ KAPACITEIT OVERSCHREDEN." s18:1:"DUW OM HET EVEN WELKE TOETS IN VOOR":20:1:"NAAR HET MENU TERUG TE KEREN." (16368),0 (16384)127ī530 D$;"PR#6" &D$(4):D$"NOMON I,C,O" 0OX$D$"OPEN STOCK,S5 ,D1,L8":RX$D$"READ STOCK,R034,0: "": 9768:(222)8(222)9ī480 a(222)255Ĺ222,0:768,96:216,0: oD$;"PR#6 34,0:::1:8:" FOUT ROUTINE "::2:8:"---------------" 4:1::"EEN VAN UW SCHIJVEN IS DEFEKT  ":6:1:"OF HEEFT HAAR |768,96:216,0:160 34,0::10:"  PLAATS DE PROGRAMMA SCHIJF ":12:"  VERKOOP & FACTURATIE IN DRIVE ":14:"  NUMMER 1." 20:"  DUW OM HET EVEN WELKE TOETS IN OM":22:"  NAAR HET MENU TERUG TE KEREN." 34,23:440 (16384)127ī420 $;"RUN PF0,S6" "D$(4) @,OP4ė:440:D$;"RUN DAT ,S6,D1" c6OP5ė:390:D$;"RUN PCT0,S6" n@34,23 wJ390 T(16384)127ī340 ^34,0: h768:(16384)13(OP$)0ī220 r(16384)8OP$" "AA1:OP$" ":768,96:216,0:160 (OP$)6OP(OP$):250 ) 768,QQ:70  34,0::3:5::"GEKOZEN MOGELIJKHEID BESTAAT NIET !"::5:5:"NIEUWE KEUZE MAKEN.   ":I12500::70  34,23:768,QQ:60 OP1İ440:D$;"RUN PS0,S6" OP2İ440:D$;"RUN PC0,S6" OP3İ390:D:"  4. DATUM WIJZIGING." =
 20:"  5. SYSTEEM PARAMETERS." R
 34,23:16368,0 i
 768,QQ:360:160 
 23:868:23:10:"                 KEUZE ? ";OP$ 
 23:A:OP 
 OP0ī160 
 A36AA1:OP$(OP):160 
 A36İ430:160  (OP$)0I":3:5);"*******************************":5:27);"VERSIE  2.00" |	Z 6:12);"   HOOFDMENU  ":7:12);"   *********  " 	d 10:"  1. STOCK BEHEER." 	n 12:"  2. KLANTEN BEHEER." 	x 14:"  3. VERKOOP & FACTURATIE.":16:"     DAG EDITIE." 
 18 )790,96:216,0:222,0:790,QQ:3590 l37998:D$(13)(4):D$;"NOMON I,C,O":(37):868:TAB$(999) ZE$"0000000000":BL$"                         ":Z$BL$:PL0:GG$"'''''''''''''''''''''''''''''''''''''''''''''''''" FQ$"&&&&&&&&&&&&&&&&&&!":J11000:J: &B4:868::1920 OV790,96:216,0:222,0:790,QQ:3590 `3:14:868:5:9:"     ":5:36:"     ":7:38:868:13:20:868:9:20:868:15:20:868 j17:38:868:19:31:868:11:20:868:21:31:958 t     1080 5NU$(TAB$(MIN%),10)NU$(TAB$(MAX%),10)ı hMDL%(MAX%MIN%)2:NU$(TAB$(MDL%),10)ī1080 NU$(TAB$(MDL%),10)MAX%MDL%:1060 NU$(TAB$(MDL%),10)MIN%MDL% $MIN%1MAX%ı .1000 84:1::"HET GEGEVEN NR.BESTAAT AL!!!!!RECST$ C1$ OP1ı EKP$(ZE$(KP),3):NF$(ZE$NF$,2) kTAB$(K)NU$NF$KP$:KK1:KPKP1 {K1Č38000 34,0: 790,96:216,0:222,0:790,QQ:3590 MIN%0:MAX%K1 NU$(TAB$(MIN%),10)ī1080 NU$(TAB$(MAX%),10)īOP2KCKP xHDE$(DE$BL$,25):SA$(ZE$SA$,5):MI$(ZE$MI$,3):PV$(ZE$PV$,5):PA$(ZE$PA$,5):PMA$(ZE$PMA$,5) RRT$(ZE$RT$,5):MA$(ZE$MA$,3):VA$(ZE$VA$,6) \RECST$DE$SA$MI$CO$PV$PA$PMA$CR$RT$MA$VA$ fO1$ pW1$;KC z) YSA$(SA):MI$(MI):PV$(PV):PA$(PA):PMA$(PMA):RT$(RT):VA$(VA):MA$(MA): 790,96:216,0:222,0:790,QQ:3590  4:1::"DEZE ARTIKEL NUMMER BESTAAT NIET":J11000:J:::4:868:1920 4790,96:216,0:222,0:790,QQ:3590 >R1$;KC STREC$ C1$ DE$(STREC$,25):SA((STREC$,26,5)):PV((STREC$,35,5)):MI((STREC$,31,3)):PMA((STREC$,45,5)):CO$(STREC$,34,1):PA((STREC$,40,5)) RT((STREC$,51,5)):CR$(STREC$,50,1):MA((STREC$,56,3)):VA((STREC$,6)&W3$;"0" 0NE$ :C3$: GN790,96:216,0:222,0:790,QQ:3590 PXO5$ YbW5$ ol(ZE$(NSUP),4) zvC5$: 790,96:216,0:222,0:790,QQ:3590 O4$ W4$ DA$ C4$: 790,96:216,0:222,0:790,QQ:3590 O1$ ((TAB$(ZB%),11,2))): @NU$(TAB$(MDL%),10)MAX%MDL%:450 dNU$(TAB$(MDL%),10)MIN%MDL% zMIN%1MAX%ī790 390  222,0:790,96:216,0:790,QQ:3590 O3$ W3$;NE RE$ C3$:NENE1:NE$(ZE$(NE),4) I3$ 
MIN%:NF$(((TAB$(ZB%),11,2))): yNU$(TAB$(MAX%),10)KC((TAB$(MAX%),3)):ZB%MAX%:NF$(((TAB$(ZB%),11,2))): NU$(TAB$(MIN%),10)NU$(TAB$(MAX%),10)ī790 MDL%(MAX%MIN%)2:NU$(TAB$(MDL%),10)KC((TAB$(MDL%),3)):ZB%MDL%:NF$("":90 (,AX2ĖX1A:Y1:(Z$,X2A); B6222,0:790,96:216,0 U@790,QQ:3590 jJJU$"0"Č868: TJX2(NO$):J0ı ^JU$"D"NO$(ZE$,J)NO$: hNO$NO$(Z$,J): |MIN%0:MAX%K1 "NU$(TAB$(MIN%),10)KC((TAB$(MIN%),3)):ZB%Ы100  PE8A0NO$"":100 G AX2(ZZ$)0AA1:NO$NO$V$:100 w AX2(ZZ$)1AA1:NO$NO$V$:ZZ$"":100 AX2(ZZ$)1AA1:NO$NO$V$:ZZ$(ZZ$,(ZZ$)1):100 AX2ĺ(7):100 (ZZ$)0(NO$)090 ":(Z$,(NO$))NO$NO$1NO$NO$ZZ$:ZZ$"":AA1:100 8
 PE21(ZZ$)0ī100 |
 PE21(ZZ$)1NO$NO$(ZZ$,1):ZZ$(ZZ$,(ZZ$)1):AA1:100 
 PE13(V$)0ī280 
 PE8A1ZZ$(NO$,1)ZZ$:NO$(NO$,(NO$)1):AA1:100  PE8A1ZZ$(NO$,1)ZZ$:NO$"":AA1:U 790,QQ:95 -	Z A(NO$):ZZ$"":(4):110 6	_ 790 <	d  M	n X1:Y1:NO$ [	x Y1:X1A 	 V$:PE(16384):PE44PE34ī130 	 TY$"N"160 	 (PE48PE57)(PE27PE8PE13PE21)100 	 PE27NO$"":X1:(Z$,X2);:90 
 PE21(ZZ$)x2 QQ104:(57350)QQQQ8 x 790,96:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96 < 34,0:33,40::5::"KREATIE  - KONSULTATIE  STOCK"::5:2:"-----------------------------":34,3::1160 P P10PX0NO$"" 	            
	 
	 
	 		                                                                                                                                              ,5) 4&11:"WINSTMARGE   (%) : ":12:20:(GG$,3) e&21:"JAARLIJKSE VERK. : ":22:31:(GG$,6) w&:1:17:NU$ &1:37:NF$ &	OP2NO$"":X137:X22:Y11:TY$"N":JU$"0":80:216,0:NF$NO$:(NF$)0Ģ1:37:868:2310 &	3:14:DE$ C'	OP%13:"VERKOOPPRIJS     : ":14:20:(GG$,5) _%9:"AANKOOPPRIJS     : ":10:20:(GG$,5) %15:"GEMIDDELD AANK.P.: ":16:20:(GG$,5) %17:"KODE R/V (1=RADIO,2=TV Z/W ,3=TV/C) ":18:38:(GG$,1) &19:"PERIODISCHE VERK.: ":20:31:(GG$":1:28:"FAMILIE: ";NF$:2:37:(GG$,2) 4$z34,2 `$3:"BECHRIJVING : ":4:14::(GG$,25) $5:1:"STOCK : ":5:27:"MIN.ST : ":6:9:(GG$,5):6:36:(GG$,3) $7:"BTW (1=";TB;"%, 2=";TM;"%, 3=";TH;"%, 4=";TH;"+";T8;"%)":8:38:(GG$,1) /980:2130 #OP2K0ī2130 7# OP3İ380:710:2130 F#*OP1İ380 U#4IZB%K1 #>KC((TAB$(I),3)):NU$(TAB$(I),10):NF$(((TAB$(I),11,2))) #H710 #R(NU$,1)"0"NU$(NU$,(NU$)1):2130 #\16368,0 #f1110 *$p:"    ARTIKEL NR. : (NU$,1)" "NU$(NU$,(NU$)1):1980 R"(NU$,1)" "NU$(NU$,(NU$)1):1990 b"J1(NU$) "(NU$,J,1)" "NU$(NU$,J1)(NU$,((NU$)J)):2010 "J "NU$(ZE$NU$,10) "UN$NU$:NU$(ZE$,10)ī1750 "OP2P20P21 	#OP2K0İ"":MI$"":PV$"":PMA$"":PA$"":RT$"":VA$"":CO$"":CR$"" l!:"ARTIKEL NUMMER     : ":2:22:(GG$,10) !20::5:"<NUL> TERUG NAAR HET MENU.": !X122:X210:Y11:TY$"A":JU$"0":80:216,0:NU$NO$ !790,96:216,0:222,0:790,QQ:3590 &" a DX130:X21:Y116:TY$"N":JU$"0":80:216,0:OP$NO$:OP(OP$):OP0OP3Ģ18:30:868:1860  IOP2KP800İ3535:1750  NOP0P20ī3260  XOP0P21İ3080  bK0OP2  lOP3P21  vOP1OP3ī1930 ;!NU$"":NF$"":DE$"":SA$"":MA$AFFING STOCK";40);"&"; %QQ$;Q$: N10:"1. KONSULTATIE  / WIJZIGING ." u12:"2. KREATIE VAN EEN ARTIKEL." &14:"3. AFSCHAFFING VAN EEN ARTIKEL." 020:"<NUL> OM NAAR HET MENU         ":22:"TERUG TE KEREN.   "   :16:12:"UW KEUZE ? ":(TAB$(K),10)ZE$ī1730 (KK1:J,I <C2$:TAB$(K)"" e790,96:216,0:222,0:790,QQ:3590 P10:P30:P60:OP0:OP$"":NU$"" 34,0:::Q$;QQ$; "&";5);"KONSULTATIE  / WIJZIGING           &"; QQ$; "&";5);"KREATIE  / AFSCH16,0:222,0 BJ790:(222)5Ĺ790,96:216,0:KC0:K0:3430:1740 UT790,QQ:1610 ^^I2$ khR2$;"0" wrR0TAB$ |C2$ KA((R0TAB$,5)):KB((R0TAB$,6,5)):KP((R0TAB$,3)):KA0PL1 O2$ I1KBPL R2$;I J024:TAB$(K)1530 790,QQ:1470 !O4$ *R4$ \DA$:AD$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) eC4$ 790,96:216,0:222,0 790:(222)5Ĺ790,96:216,0:NE1:1600 790,QQ:1540 I3$ "R3$;"0" ,NE$:NE(NE$) 6C3$ @790,96:2:222,0:1390  Z790,QQ:1360 ;dD$;"BLOAD SORT,S6,D1" Un790,96:216,0:222,0 ux790:(222)5NSUP0:1460 790,QQ:1400 O5$ R5$ NSUP$:NSUP(NSUP$):NSUP80İ3530 C5$ 790,96:216,0:222,0 790:(222)5İ3300:790,96:216,0:222,0 K
(222)0Č790:(222)5TB6:TM16:TH25:1350 ^790,QQ:1290 gO6$ p(R6$ 2TT$:TB((TT$,2)):TM((TT$,3,2)):TH((TT$,5,2)):T8((TT$,7,2)) <C6$ F790,96:216,0:222,0 P790:(222)5Ĺ790,96:216,0:R4$D$"READ DATE,R0":W4$D$"WRITE DATE,R0":C4$D$"CLOSE DATE" O5$D$"OPEN FPDSUPPR,S5,D1,L6":R5$D$"READ FPDSUPPR,R0":W5$D$"WRITE FPDSUPPR,R0":C5$D$"CLOSE FPDSUPPR" O6$D$"OPEN TVA,S6,D1,L10":R6$D$"READ TVA ,R0":C6$D$"CLOSE  TVA"  ,R":W2$D$"WRITE FPDTABLE,R":C1$D$"CLOSE FPDSTOCK ":C2$D$"CLOSE FPDTABLE" O3$D$"OPEN FLDENTRE,S4,D1,L44":I3$D$"OPEN FLDENTRE,S4,D1,L6":R3$D$"READ FLDENTRE,R":W3$D$"WRITE FLDENTRE,R":C3$D$"CLOSE FLDENTRE" AO4$D$"OPEN DATE ,S5,D1,L8":&&&&&&&&&&&&&&&&&&&&&&":QQ$"&                                      &" O1$D$"OPEN FPDSTOCK ,S5,D1,L66 ":O2$D$"OPEN FPDTABLE,S5,D1,L400":I2$D$"OPEN FPDTABLE ,S5,D1,L15":R1$D$"READ FPDSTOCK ,R":R2$D$"READ FPDTABLE,R" NW1$D$"WRITE FPDSTOCK ONTROLEER DAN" B6z14:1:"WELKE SCHIJF ER IN DEZE DRIVE STEEKT." z6:20:1:"<ESC>"::20:12:"VOOR EEN SCHIJFFOUT." 6:22:1:"<SPACE>"::22:12:"VOOR KREATIE VAN BESTAND." 6(16384)127ī3480 6(16384)155ġ:16368,0:1600 7(ɫ3330 15H((DA$,7,2))1((DA$,7,2))31ī3330 e5RAD$DA$:DA$(DA$,2)(DA$,4,2)(DA$,2):650: 5f790:790,96:216,0:222,0:790,QQ:3590: 6p4:1:958:4:1:"PLAATS DE STOCK SCHIJF":6:1:"IN DRIVE NR 2.":12:1:"ALS DE STOCK AL BESTAAT, KČ790 '414:868:14:6:"DD/MM/JJ": 4X16:X28:Y114:TY$"A":JU$"0":80:216,0:DA$NO$:DA$(DA$,2)(DA$,3,4)(DA$,2) 4 (DA$)8ī3330 4*((DA$,2))79ī3330 44(DA$,3,1)"/"(DA$,6,1)"/"ī3330 5>((DA$,4,2))1((DA$,4,2))12ī3280 3D$;"RUN PS0,S6" .3790:D$;"PR#6" W3790,96:216,0:222,0:790,QQ:3590 3:7:"   DE HUIDIGE DATUM IS NOG NIET  ":9:"   IN HET SYSTEEM INGEBRACHT." 312:"   BRENG HET IN ONDER DE VORM :" 3790,QQ:3335 33340 4(222)0) 20KA$(ZE$(KA),5) (2:KA0ī3160 92DIKK24KA ^2NTAB$(I)ZE$(ZE$,5)::KB%KB%1 g2XI2$ t2bW2$;"0" 2lKA$KB$KP$ 2vC2$:K0 2O2$ 2I1KB% 2W2$;I 2J024:TAB$(K):KK1:J,I 2C2$ 3790,96:216,0:222,0:790,QQ:"N"PP$"J"Ģ23:35:868:3000 31PP$"N"ī1750 U134,23:KK1:NSUPNSUP1:590 |1TAB$(ZB%)"]]]]]]]]]]]]]]]":38000 1KA0KBKB1:KA24:1750 1KAKA1 11750 1KP$(ZE$(KP),4) 1KB%(K25) 1KB$(ZE$(KB%),5) 2&KAK(25KB%"":X114:X220:Y13:TY$"A":JU$"G":80:216,0:PR$NO$ j0RE$NU$SA$DA$PR$CR$:34,23:490:34,0:1920 0790,96:216,0:222,0:790,QQ:3590 023:868:23:15:"AFSCHAFFING ? (J/N) "  1X135:X21:Y123:TY$"A":JU$"0":80:216,0:PP$NO$:PP$P1P30P61ī1750 2/"OP1P31P61İ820:1750 O/6OP1P3OP60ĂI:1750 v/JOP1P31P60P30:820:I:1750 /^790,96:216,0:222,0:790,QQ:3590 /hOP3ī2980 /r820:CR1ī1920 /|34,0::3:1:"HERKOMST ? ":4:14:(GG$,20) 60NO$,0:PP$NO$:PP$"N"PP$"J"Ģ23:37:868:2740 N.
PP$"N"P11:P31:2320 W.
P10 h.
OP1ī2810 .
23:868:23::1:"< ESC >"::23:9:"ONDERBREKING.                 " .
(16384)127ī2790 .
(16384)155P61 .
34,23:NU$UN$ /O:JU$"0":80:216,0:RT$NO$ ,-
21:31:VA$ w-
OP2P11NO$VA$:X131:X26:Y121:TY$"N":JU$"0":80:216,0:VA$NO$ -
OP3ī2980 -
16368,0:23:20:"JUIST ? (J/N) " -
16384,0:NO$"":23:37:868 1.
X137:X21:Y123:TY$"A":JU$"0":80:216PMA$:X120:X25:Y115:TY$"N":JU$"0":80:216,0:PMA$NO$ K, 
17:38:CR$ ,

OP2P11NO$CR$:X138:X21:Y117:TY$"N":JU$"0":80:216,0:CR$NO$:CR(CR$):CR0CR3Ģ17:38:868:2570 ,
19:31:RT$ -(
OP2P11NO$RT$:X131:X25:Y119:TY$"N"(PV$)MA((((NO$)10000((PA$)(100CO)))100).5):MA$(MA) k+	P11OP2PV$NO$:11:20:868:MA$ +	(P11OP2)((PA$)(PV$)(PA$)0)PA$"":2421 +	(PV$)02520 +	OP2Ģ15:20:PA$:PMA$PA$:2560 +	15:20:PMA$ :,	OP2P11NO$(NO$)Z91 $*	OP2P11MA$NO$ <*	MA(MA$):PA(PA$) *	Z91(MA$)100PV((PA(100MA)100)((100CO)100).5):PV$(PV) *	13:20:PV$ *	OP2P11NO$PV$:X120:X25:Y113:TY$"N":JU$"0":PX1:80:PX0 A+	(OP2P11)(PV$)0(NO$)216,0 *)w	(OP2P11)(NO$)(PA$)Z91 A)x	OP2P11PA$NO$ U)y	(CO$)1COTB i)z	(CO$)2COTM }){	(CO$)3COTH )|	(CO$)4COTHT8 )~	11:20:MA$ )	OP2P11NO$MA$:X120:X23:Y111:TY$"N":JU$"0":80:216,0 *	(OP2P11)(MA$)NO$ (j	7:38:CO$ A(k	Z90: POINTEUR DE MODIFICATION DES PRIX (t	OP2P11NO$CO$:X138:X21:Y17:TY$"N":JU$"0":80:216,0:CO$NO$:CO(CO$):CO1CO4Ģ7:38:868:2420 (u	9:20:PA$ )v	OP2P11NO$PA$:X120:X25:Y19:TY$"N":JU$"0":80:2P11NO$DE$:X114:X225:Y13:TY$"A":JU$"0":80:216,0:DE$NO$ U'.	::5:9:SA$ '8	OP2P11NO$SA$:X19:X25:Y15:TY$"N":JU$"0":80:216,0:SA$NO$ 'L	5:27:"ST.MIN : ";MI$ (V	OP2P11NO$MI$:X136:X23:Y15:TY$"N":JU$"0":80:216,0:MI$999L7999999L7$(L7$,(L7$)3)"."(L7$,3) t(FL5999999L5$(L5$,(L5$)6)"."(L5$,(L5$)5,3)"."(L5$,3) (GL6999999L6$(L6$,(L6$)6)"."(L6$,(L6$)5,3)"."(L6$,3) (HL7999999L7$(L7$,(L7$)6)"."(L7$,(L7$)5,3)"."(L7$,3) j)"."(L3$,3) E'(L4999L4999999L4$(L4$,(L4$)3)"."(L4$,3) '2L4999999L4$(L4$,(L4$)6)"."(L4$,(L4$)5,3)"."(L4$,3) '<L5999L5999999L5$(L5$,(L5$)3)"."(L5$,3) '=L6999L6999999L6$(L6$,(L6$)3)"."(L6$,3) /(>L71$)5,3)"."(L1$,3) L& L2999L2999999L2$(L2$,(L2$)3)"."(L2$,3) &
L2999999L2$(L2$,(L2$)6)"."(L2$,(L2$)5,3)"."(L2$,3) &L3999L3999999L3$(L3$,(L3$)3)"."(L3$,3) 'L3999999L3$(L3$,(L3$)6)"."(L3$,(L3$)5,3$(L5):L6$(L6):L7$(L7) R%L0999L0999999L0$(L0$,(L0$)3)"."(L0$,3) %L0999999L0$(L0$,(L0$)6)"."(L0$,(L0$)5,3)"."(L0$,3) %L1999L1999999L1$(L1$,(L1$)3)"."(L1$,3) &L1999999L1$(L1$,(L1$)6)"."(L1$,(L2);"%.. .ADD.";("  "(T8),2);"%. .VRIJGEST ..BTW.... .ADD.T..." Y$:LY$:" ":LLLL5 $1800:"FAKTUUR              ";K1);I3$:K0);I0$;K3);I1$;K4);I2$;K7);I6$;K5);I5$;K6);I4$;K8);I7$: %L0$(L0):L1$(L1):L2$(L2):L3$(L3):L4$(L4):L5M2L2:I3M3L3:I4M4L4:I5M5L5:I6M6L6:I7M7L7 W#LL0āILLLM:" "::::LL2 #"VOLGN     --DATUM-  ---------KLANT-----------     FAK.NR      -BEDRAG--" A$"          .BI.";("  "(TB),2);"%.. .BI.";("  "(TM),2);"%.. .BI.";("  "(TH),1160 "`O2$ "jW2$ ?"tI0$I1$I2$I3$I4$I5$I6$I7$NU$ H"~C2$ e"D$;"DELETE FLDFACT";Z2$ v"20000:1800 "LY$ ":"TOTALEN              ";K1);I3$:K0);I0$;K3);I1$;K4);I2$;K7);I6$;K5);I5$;K6);I4$;K8);I7$ 3#I0M0L0:I1M1L1:I27$"-"(ZE$(I7),9):I7I7 ;!TI60I6$(ZE$(I6),10) Z!UI70I7$(ZE$(I7),10) y!VI50I5$(ZE$(I5),10) !W34,0:16368,0:17::"<ESC>";::" VERKOOPBOEK NIET GECENTRALIZEERD." !X(16384)1271112 "Y(16384)155ZP1:I3:I3$"-"(ZE$(I3),9):I3I3 A .I30I3$(ZE$(I3),10) p 8I40I4I4:I4$"-"(ZE$(I4),9):I4I4  BI40I4$(ZE$(I4),10)  LI50I5I5:I5$"-"(ZE$(I5),9):I5I5  MI60I6I6:I6$"-"(ZE$(I6),9):I6I6 !NI70I7I7:IE$NU$,4) 8I00I0I0:I0$"-"(ZE$(I0),9):I0I0 WI00I0$(ZE$(I0),10) I10I1I1:I1$"-"(ZE$(I1),9):I1I1 I10I1$(ZE$(I1),10) I20I2I2:I2$"-"(ZE$(I2),9):I2I2 I20I2$(ZE$(I2),10) " $I30I30:L1L1J1:L2L2J2:L4L4TVA:I6I6J4:I7I7E4:L6L6J4:L7L7E4 ]CO2I5I5J3:I3I3J3 CO3I5I5J3:I3I3J3:L5L5J3:L3L3J3 (4);"PR#0": NU$(NU):M0I0M0:M1I1M1:M2I2M2:M3I3M3:M4I4M4:M5I5M5:M6I6M6:M7I7M7 	NU$(ZK0);J0$;K3);J1$;K4);J2$;K9);J4$;K5);J3$;K6);TVA$;K8);E4$ KLLLL3 aLLLMLL0::: mNUNU1 CO0I3I3MT:I0I0J0:I1I1J1:I2I2J2:I4I4TVA:I6I6J4:I7I7E4 ACO1I3I3MT:I0I0J0:I1I1J1:I2I2J2:I4I4TVA:L3L3MT:L0L0J999999TVA$(TVA$,(TVA$)6)"."(TVA$,(TVA$)5,3)"."(TVA$,3) pK020(J0$):K16(NU$):K216(MT$):K311(J1$):K411(J2$):K713(FA$):K511(J3$):K611(TVA$):K811(E4$):K911(J4$) ?z" ":K1);NU$;6);DA$;3);NO$;K7);FA$;K2);MT$:T$,3) <IJ4999J4999999J4$(J4$,(J4$)3)"."(J4$,3) sJE4999E4999999E4$(E4$,(E4$)3)"."(E4$,3) RMT999999MT$(MT$,(MT$)6)"."(MT$,(MT$)5,3)"."(MT$,3) \TVA999TVA999999TVA$(TVA$,(TVA$)3)"."(TVA$,3) CfTVAT ZAL ZO SNEL MOGELIJK ";::"GEREORGANISEERD";::" MOETEN WORDEN " |814:1:"WIL U DIT VANDAAGNOG":16:1:"UITVOEREN." 820:1:"DUW OM HET EVEN WELKE TOETS IN  ":22:1:"VOOR HET VERVOLG VAN HET PROGRAMMA." 8(16384)127ī3570 8 %9(16384)160ı  716368,0:3480 J7790,96:216,0:222,0:790,QQ:3590: 74:1:"HET STOCKBESTAND HEEFT EEN TE GROOT ":6:1:" AFSCHAFFINGPERCENTAGE BEREIKT" 7:::8:1:"OF BESTAAT AL TEN MINST UIT 800 ARTIKELS"::"" D812:1:"HEDUW OM HET EVEN WELKE TOETS IN VOOR":21:1:"HET VERVOLG VAN HET PROGRAMMA.":34,23 l(>(16384)1282110 (H34,0:10:1:958:34,23: (R790:D$;"PR#6" (0u216,0:222,0:790,QQ:30020 (:u30030 (Du790:(222)5Ĺ222,0:BID$"1100":30060 )Nu(M1$,(M1$)6)"."(M1$,(M1$)5,3)"."(M1$,3) j+M2999M2999999M2$(M2$,(M2$)3)"."(M2$,3) +M2999999M2$(M2$,(M2$)6)"."(M2$,(M2$)5,3)"."(M2$,3) +M3999M3999999M3$(M3$,(M3$)3)"."(M3$,3) -,M3999999M3$(M3$$(M2):M3$(M3):M4$(M4):M5$(M5):M6$(M6):M7$(M7) p*xM0999M0999999M0$(M0$,(M0$)3)"."(M0$,3) *M0999999M0$(M0$,(M0$)6)"."(M0$,(M0$)5,3)"."(M0$,3) *M1999M1999999M1$(M1$,(M1$)3)"."(M1$,3) 3+M1999999M1$)PK152(L3$):K020(L0$):K311(L1$):K411(L2$):K511(L5$):K611(L4$):K711(L6$):K811(L7$) {)ZLY$:LLLL4 )d:"KREDIET NOTA         ";K1);L3$:K0);L0$;K3);L1$;K4);L2$;K7);L6$;K5);L5$;K6);L4$;K8);L7$: 9*nM0$(M0):M1$(M1):M234,0::768,QQ:670 'ZY3620 0560                                                                                                                                                                                                               RIVE NUMMER ";ZY;"  "::5:10:"VERZEKERT U DAT DE DRIVE DEUREN" b5:12:"WEL GESLOTEN ZIJN." 1:20:"DUW OM HET EVEN WELKE TOETS IN OM  ":1:22:"HET PROGRAMMA TE STARTEN." 34,23:254:222,0:768,96:216,0:16368,0 (16384)127720 0OX$ :RX$ DBID$ #NCX$ 9XZX$"KLANT ":ZY3 BbOY$ KlRY$ UvBID$ ^CY$ p768,QQ:400 v 768:(222)5(222)8Ĺ34,0:::100:1:4:"??????      ";ZX$;" SCHIJF        ??????" A1:6:"   BEVINDT ZICH NIET IN D0 D$;"PR#6" ^OX$D$"OPEN STOCK,S5 ,D1,L8":RX$D$"READ STOCK,R0":CX$D$"CLOSE STOCK" OY$D$"OPEN CLIENT,S4,D1,L8":RY$D$"READ CLIENT,R0":CY$D$"CLOSE CLIENT" 768,96:216,0:222,0 768,QQ:670 16368,0 &ZX$" STOCK":ZY2 NE "::2:8:"--------------" }4:1::"EEN VAN UW SCHIJVEN IS DEFEKT  ":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCHREDEN." 18:1:"DUW OM HET EVEN WELKE TOETS IN OM    ":20:1:"NAAR HET MENU TERUG TE KEREN." (16368),0 (16384)127ī48384)8OP$" "AA1:OP$" ":768,96:216,0:180 Ir768,96:216,0:180 z|J110:X(16336)(16336)(16336):J: "": 768:(222)8(222)9ī430 (222)255Ĺ222,0:768,96:216,0: D$;"PR#6 34,0:::1:8:" FOUT ROUTIOP2İ390:D$;"RUN PS2 ,S6" ="OP3İ390:D$;"RUN PS3 ,S6" I,D$(4) l6OP0ė:390:D$;"RUN P0  ,S6" @OP4İ390:D$;"RUN PS4 ,S6" JOP5İ390:D$;"RUN PS5 ,S6" TOP6İ390:D$;"RUN PS6 ,S6" ^768:(16384)13(OP$)0ī230 1h(1636AA1:OP$(OP):180 , A36İ380:180 I (OP$)7OP(OP$):260 Z 768,QQ:80  34,0::3:5::"GEKOZEN MOGELIJKHEIJD BESTAAT NIET !"::5:5:"MAAK EEN NIEUWE KEUZE.":I12500::80 768,QQ:60 OP1İ390:D$;"RUN PS1 , S6" OEVEELHEDEN." )
 14:"  3. PRIJSLIJST." E
 16:"  4. INVENTARIS." g
 18:"  5. BESTELLINGSLIJST." 
 20:"  6. VOLGENDE MENU." 
 34,23:16368,0 
 768,QQ:350:180 
 23:868:23:10:"                 KEUZE ? ";OP$ 
 23:A:OP  AWARE I.T.T.2020 EN APPLE II":2:5);"*******************************":3:30);"VERS.2.00" 	d 4:12);"STOCK BEHEER":5:12);"------------" 	n 7:"  1. KREATIE / KONSULTATIE / WIJZIGING  ":9:"    AFSCHAFFING STOCK. " 
x 12:"  2. AANPASSING VAN H1
 QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 < 768:34,23:33,40:D$(13)(4):D$;"NOMON I,C,O":16368,0 F 500 P 768:OP$"":A35:768,96:216,0:34,0 [	Z :1:5);"SOFT            
	                                                                                                                                                                                                                              768,96:216,0:222,0 2B768:(222)5NE1:1150 EL768,QQ:1090 NVI3$ W`R3$ jjNE$:NE(NE$) stC3$ ~768,96:216,0:222,0 768:(222)5NS1:1220 768,QQ:1160 I4$ R4$ NS$:NS(NS$) C4$ 768,96:216,0:0TAB$,4)):TAB$((KB25)50):KA0PL1 0O2$ ?I1KBPL JR2$;I xJ024:TAB$(K):(TAB$(K),10)ZE$ī1000 KK1:J,I C2$ 768,96:216,0:222,0 768:(222)5ī1710 768,QQ:1020 I5$ R5$ $DA$ .C5$ 8RE ,R":W4$D$"WRITE FLDSORTIA,R":C3$D$"CLOSE FLDENTRE":C4$D$"CLOSE FLDSORTIA" lf768,96:216,0:222,0 p(222)0Č768:(222)5ī1670 z768,QQ:880 I2$ R2$;"0" R0TAB$ C2$ 'KA((R0TAB$,5)):KB((R0TAB$,6,5)):KP((R$D$"READ DATE,R0":C5$D$"CLOSE DATE" RO3$D$"OPEN FLDENTRE ,S4,D1,L44":O4$D$"OPEN FLDSORTIA,S5,D1,L44":I3$D$"OPEN FLDENTRE ,S4,D1,L6":I4$D$"OPEN FLDSORTIA,S5,D1,L6":R3$D$"READ FLDENTRE ,R0":R4$D$"READ FLDSORTIA,R0" R\W3$D$"WRITE FLDENTOPEN FPDSTOCK ,S5,D1,L66 ":O2$D$"OPEN FPDTABLE,S5,D1,L400":I2$D$"OPEN FPDTABLE ,S5,D1,L15":R1$D$"READ FPDSTOCK ,R":R2$D$"READ FPDTABLE,R" 'HW1$D$"WRITE FPDSTOCK ,R":C1$D$"CLOSE FPDSTOCK ":C2$D$"CLOSE FPDTABLE":I5$D$"OPEN DATE,S5,D1,L8":R5STREC$,31,9)PA$PMA$(STREC$,15) +O1$ 7W1$;KC CRECST$ N C1$: *D$(13)(4):D$;"NOMON I,C,O":(37):868 4ZE$"0000000000":BL$"                         ":Z$BL$:GG$"'''''''''''''''''''''''''''''''''''''''''''''''''" >O1$D$"lC3$: vO4$ W4$;NS 'SO$ 0C4$ [NSNS1:NS$(NS):J4(NS$):J0ī690 pNS$(ZE$,J)NS$ yI4$ W4$;"0" NS$ C4$: PMA$(ZE$(PMA),5) PA$(ZE$(PA),5) SA$(ZE$(SA),5) "RECST$(STREC$,25)SA$(868:1270 W34,3:4:20:868:6:15:868:8:25:868:10:39:868:12:21:868 x14:26:868:16:1:958: O3$ W3$;NE &EN$ 0C3$ :NENE1:NE$(NE):J4(NE$):J0ī590 DNE$(ZE$,J)NE$ NI3$ XW3$;"0" bNE$ 	370 O1$ R1$;KC &STREC$ /C1$ DE$(STREC$,25):SA((STREC$,26,5)):CR((STREC$,50,1)):PMA((STREC$,45,5)):PA((STREC$,40,5)): 
5:1::"DIT ARTIKEL NUMMER BESTAAT NIET ":J11000:J:::5:868:5:20:(GG$,10):4:20:%),3)):ZB%MAX%:450 HNU$(TAB$(MIN%),10)NU$(TAB$(MAX%),10)ī500 MDL%(MAX%MIN%)2:NU$(TAB$(MDL%),10)KC((TAB$(MDL%),3)):ZB%MDL%:450 NU$(TAB$(MDL%),10)MAX%MDL%:430 NU$(TAB$(MDL%),10)MIN%MDL% MIN%1MAX%ī500  "6AX2ĖX1A:Y1:(Z$,X2A); 7@JU$"0"Č868: NJJX2(NO$):J0ı nTJU$"D"NO$(ZE$,J)NO$: ^NO$NO$(Z$,J): hMIN%0:MAX%K1 rNU$(TAB$(MIN%),10)KC((TAB$(MIN%),3)):ZB%MIN%:450 |NU$(TAB$(MAX%),10)KC((TAB$(MAX PE8A0NO$"":110 ? AX2(ZZ$)0AA1:NO$NO$V$:110 oAX2(ZZ$)1AA1:NO$NO$V$:ZZ$"":110 AX2(ZZ$)1AA1:NO$NO$V$:ZZ$(ZZ$,(ZZ$)1):110 AX2ĺ(7):110 "(ZZ$)0(NO$)0100  ,:(Z$,(NO$))NO$NO$"":100$ZZ$:ZZ$"":AA1:110 0
 PE21(ZZ$)0ī110 t
 PE21(ZZ$)1NO$NO$(ZZ$,1):ZZ$(ZZ$,(ZZ$)1):AA1:110 
 PE13(V$)0ī290 
 PE8A1ZZ$(NO$,1)ZZ$:NO$(NO$,(NO$)1):AA1:110 
 PE8A1ZZ$(NO$,1)ZZ$:NO$"":AA1:110 105 $	d A(NO$):ZZ$"":(4):120 -	i 768 3	n  D	x X1:Y1:NO$ R	 Y1:X1A y	 V$:PE(16384):PE44PE34ī140 	 TY$"N"170 	 (PE48PE57)(PE27PE8PE13PE21)110 	 PE27NO$"":X1:(Z$,X2);:100 
 PE21(ZZ$)1NO$NO QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 P 34,0:33,40::7::"AANPASSING DER HOEVEELHEDEN"::7:2:"---------------------------"::34,4:810 Z P10NO$"" 	_ 768,QQ:            
	 
	                                                                                                                                                                                                     ";9);"---------" #h:LLLL10: HrD$;"OPEN ";F$;",S";S;",D1,L115" b|D$;"READ ";F$;",R";J mCREC$ D$;"CLOSE ";F$ NO$(CREC$,24):TVA$(CREC$,73,9):AD$(CREC$,25,24):LO$(CREC$,49,24) CA((CREC$,82,8)):CTVA((CREC$,90,7)) 6SP$;YM);"*                                  *" h@SP$;YM);"************************************" nJ T6);"  KLANTEN  GEGEVENS  ";7);"BTW NR.";9);"ZAKENCIJFER ";9);"BTW CUMUL" ^6);"  -----------------  ";7);"-------";9);"-----------;K2);TVA$;K3);CA$;K4);CTVA$ , :LLLL4 JLL60āKLLLM::K:LL0 ](4);"PR#0": :SP$;YM);"************************************" "SP$;YM);"*                                  *" ,SP$;YM);"*    JAARLIJKSE  B.T.W.  LISTING   *" 3,QQ:170 <
 (4);"PR#";SP:KLLLM::K:(4);"PR#0":LL0 W
 :D$;"RUN PC0 ,S6,D1" k
 768:D$;"PR#6" 
 (4);"PR#";SP:YM23:IM0ĺ(9);"80N";:YM3 
 LL0İ280 
 K214(TVA$):K318(CA$):K419(CTVA$) 
 5);NO$ 
 5);AD$  5);LO$ I,C,O" 2	2 ZE$"0000000000":768,96:216,0:222,0 O	7 30000:LM65:IM1LM65 X	< 520 q	F I6590:F$(I):80 z	K 768 	P 216,0:222,0 	Z 600:768,QQ:75 	d ZW1ĂI:150 	n J1(NR$)1 	x 370 	 180 	 J,I 	
 768,96:216,0:222,0:7689 QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96  SP1:S4  SP$(14) 	( 34,0:33,40:::1:12:" B.T.W. LISTING ":2:12:" -------------- "::34,23:D$(13)(4):D$;"NOMON             
	                                                                                                                                                                                                                          T IN HET SYSTEEM INGEBRACHT.":10:"KEER TERUG NAAR HET MENU EN VOER DIE IN" 20:"DUW OM HET EVEN WELKE TOETS IN OM":22:"NAAR HET MENU TE KEREN." (16384)127ī1730 768,QQ:1760 35,24:D$;"RUN PS0,S6" 768:D$;"PR#6"    J      958:4:1:"HET STOCKBESTAND BESTAAT NIET.":10:"WILT U DIT BESTAND EERST KREEREN." 20:"DUW OM HET EVEN WELKE TOETS IN OM":22:"NAAR HET MENU TERUG TE KEREN." (16384)127ī1690 D$;"RUN PS1,S6" L34,0:3:958:4:1:"DE DATUM IS NIE0 6SASAQU /@CR0Ĺ34,20:730:510:1270 aJ16:1:"BESTEMMING ?":16:15::(BL$,20): TX115:X220:Y116:TY$"A":JU$"G":90:216,0:DS$NO$ ^34,20:730 hQU$(ZE$QU$,5) rSO$NU$QU$DA$DS$(CR) |630:510:1270 U34,0:3:P SASAQU:34,17:730 /CR0İ510:1270 `16:1:"HERKOMST ? ":16:15::(BL$,20): X115:X220:Y116:TY$"A":JU$"G":90:216,0:PR$NO$ J5(QU$):J0ī1570 QU$(ZE$,J)QU$ "EN$NU$QU$DA$PR$(CR) ,34,20:530:510:127Y114:TY$"N":JU$"0":90:216,0:QU$NO$:QU(QU$):QU0İ510:1270 rSG$"+"QU99999(SA)Ģ14:26:868:1440 SG$"-"QU(SA)Ģ14:26:868:1440 SG$"-"ī1590 P90ī1510 ZPMA((PMASA)(QUNP))(SAQU):ZPMA(ZPMA.5):PMAZPMA:PAN868:9:25:(GG$,5) UnX125:X25:Y18:TY$"N":JU$"0":90:216,0:NP$NO$:NP(NP$) hxNP(PA)ī1350 NP(PA)P91:1350 12:21:SA X126:X21:Y114:TY$"A":JU$"0":90:216,0:SG$NO$:SG$"-"SG$"+"Ģ14:26:868:1440 CX128:X25:(NU$,J1)(NU$,((NU$)J)):1310 ((J >2NU$(ZE$NU$,10) m<34,20:24:360:6:15::DE$::8:25:PA FX139:X21:Y110:TY$"A":JU$"0":90:216,0:OP$NO$:OP$"J"OP$"N"Ģ10:39:868:1350 POP$"J"ī1430 dP90:10:39:868:8:25:NUL OM NAAR HET MENU TERUG TE KEREN"::35,22 ~X120:X210:Y14:TY$"A":JU$"0":90:216,0:NU$NO$:(NU$)1(NU$)0ī1740  (NU$,1)" "NU$(NU$,(NU$)1):1280 
(NU$,1)" "NU$(NU$,(NU$)1):1290 J1(NU$) !(NU$,J,1)" "NU$222,0 4:1:"ARTIKEL NUMMER ? ":5:20:(GG$,10):6:1:"BENAMING : ":8:1:"LAATSTE AANKOOPPRIJS : "::10:22:"JUIST ? (J/N) " :12:1:"HOEVEELH IN STOCK : ":14:1:"HOEVEELH (IN:+,OUT:-) ? ":15:26:(GG$,1);1);(GG$,5) -23:1::"ī1050 '(FF$)(NF$)1000 x.:34,0::5:"LIJST VAN ARTIKELS PER FAMILIE":5:"******************************": ~8 L222,0:790,96:216,0 V(222)0Č790:(222)5İ2110:1100 `790,QQ:1110 jI2$ tR2$;"0" ~R0TAB$  C2$$,2) n10:"  VAN EINDE LIJST : ":11:23:(GG$,2):20:2::"NUL":20:7::"TERUG NAAR HET VORIGE MENU." X123:X22:Y18:TY$"N":JU$"0":380:216,0:NF$NO$:NF$"0"ī1260 $800 &X123:X22:Y110:TY$"N":JU$"0":380:216,0:FF$NO$:FF$"0"I13000:: Y14:1:868:16:1:868:18:1:868:10:23:868:8:23:868:1050 34,0::5::"LIJST VAN  ARTIKELS PER FAMILIE":5:"******************************": 6:"  GEEF DE FAMILIE NUMMERS":8:"  VAN BEGIN LIJST : ":9:23:(GG(TM) (CO$)3CO$(TH) 9(CO$)4CO$(THT8) S(CR$)0CR$"     " m(CR$)1CR$"RADIO" (CR$)2CR$"TV/ZW" (CR$)3CR$"TV/KL"  :14:5:"DIT FAMILIE NUMMER BESTAAT NIET"::5:"WILT U EEN ANDERE KEUZE MAKEN"::))ġ:1000 >I0K1 ;H(NF$)((TAB$(I),2))ZB%I: JRI::1000 SfO1$ `pR1$;KC% lzSTREC$ uC1$ DE$(STREC$,25):CO$(STREC$,34,1):PV$(STREC$,35,5):PA$(STREC$,40,5):CR$(STREC$,50,1) (CO$)1CO$(TB) (CO$)2CO$O5$ R5$;(NF$)  FA$ )C5$ R790,96:216,0:222,0:790,QQ:2035 X k(4);"PR#";PP KKLLLM::KK (4);"PR#0":LL0:  790,96:216,0:222,0:790,QQ:2035 *(NF$)((TAB$(K1),2))ġ:1000 
4(NF$)((TAB$(0),2)0390 *N:(Z$,(NO$))NO$NO$"":390 LXAX2ĖX1A:Y1:(Z$,X2A); [bJU$"0"ı rlJX2(NO$):J0ı vJU$"D"NO$(ZE$,J)NO$: NO$NO$(Z$,J): 790,96:216,0:222,0 (222)0Č790:(222)5FA$"":730 790,QQ:670 A1ZZ$(NO$,1)ZZ$:NO$"":AA1:400 @PE8A0NO$"":400 iAX2(ZZ$)0AA1:NO$NO$V$:400 &AX2(ZZ$)1AA1:NO$NO$V$:ZZ$"":400 0AX2(ZZ$)1AA1:NO$NO$V$:ZZ$(ZZ$,(ZZ$)1):400 :AX2ĺ(7):400 D(ZZ$)0(NO$(Z$,X2);:390 APE21(ZZ$)1NO$NO$ZZ$:ZZ$"":AA1:400 ZPE21(ZZ$)0ī400 PE21(ZZ$)1NO$NO$(ZZ$,1):ZZ$(ZZ$,(ZZ$)1):AA1:400 PE13(V$)0ī580 PE8A1ZZ$(NO$,1)ZZ$:NO$(NO$,(NO$)1):AA1:400 &PE8222,0:1100 |P90NO$"" .790,QQ:395 MA(NO$):ZZ$"":(4):410 V790 ]  nX1:Y1:NO$ |Y1:X1A V$:PE(16384):PE44PE34ī430 TY$"N"460 (PE48PE57)(PE27PE8PE13PE21)400 PE27NO$"":X1:(TVA$,2)):TM((TVA$,3,2)):TH((TVA$,5,2)):T8((TVA$,7,2)) HC3$ b"790,96:216,0:222,0 ,(222)0Č790:(222)5DA$"":360 6790,QQ:300 @O4$ JR4$ TDA$:DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) ^C4$ h790,96:216,0:30":R5$D$"READ FAFO ,R":C5$D$"CLOSE FAFO" P (222)0Č790:(222)5ī220 b 790,QQ:190 } D$;"BLOAD SORT,S6,D1"  790,96:216,0:222,0  (222)0Č790:(222)5TB6:TM16:TH25:290  790,QQ:230  O3$ R3$ ?TVA$:TB(D$"READ FPDTABLE,R":C1$D$"CLOSE FPDTABLE":I2$D$"OPEN FPDTABLE,S5,D1,L15" 
 O3$D$"OPEN TVA,S6,D1,L10":R3$D$"READ TVA,R0":C3$D$"CLOSE TVA" 
 O4$D$"OPEN DATE ,S5,D1,L8":R4$D$"READ DATE ,R0":C4$D$"CLOSE DATE" - O5$D$"OPEN FAFO ,S5,D1,LMON I,C,O":LL0:S10:S20:NZ0:TA0:ZE$"0000000000":Z$"             ":BL$Z$:GG$"''''''''''" i	 2180 	 LM51:IM1LM52 	 O1$D$"OPEN FPDSTOCK,S5,D1,L66":R1$D$"READ FPDSTOCK,R":C1$D$"CLOSE FPDSTOCK" M
 O2$D$"OPEN FPDTABLE,S5,D1,L400":R2$  QQ104:(57350)QQQQ8 x 790,96:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96 F PP1 d 34,0:33,40:::1:14:"PRIJSLIJST":2:14:"----------"::34,23:222,0:790,96:216,0:37998 _	x D$(13)(4):D$;"NO            
	 
	                                                                                                                                                                                   R '2'.":15:1:"WIL U DIT EVEN NAKIJKEN EN  " &H17:1:"DE DRIVE-DEUR GOED SLUITEN.":19:1:"DUW OM HET EVEN WELKE TOETS IN VOOR":21:1:"HET VERVOLG VAN HET PROGRAMMA.":34,23 &R(16384)1282130 &\34,0:10:1:958:34,23: 'f216,0:222,0K011(NU$):K15(CO$):K211(PA$):K312(PV$) Z% (4);"PR#";PP:IM0ĺ(9);"80N"; %*K0);NU$;5);DE$;3);CR$;K1);CO$;K2);PA$;K3);PV$ %4(4);"PR#0": .&>16368,0:34,0:10:1:"HET STOCKBESTAND BEVINDT ZICH NIET ":12:1:"IN DRIVE NUMME4);"-------";5);"------- /$LL0:D$;"PR#0": O$PV$((PV$)):PA$((PA$)) $(PV$)999PV$(PV$,(PV$)3)"."(PV$,3) $(PA$)999PA$(PA$,(PA$)3)"."(PA$,3) $(222)0Č790 $CO$CO$"%" $LL48İ760:1780:1960 $LLLL1 4%--------";12);"----";3);"---";16);"-------" D#LL0:D$;"PR#0": j#(4);"PR#";PP:IM0ĺ(9);"80N"; #3);"ARTIKEL";12);".BENAMING..";12);"TYPE";3);"BTW";4);"AANK.PR";5);"VERK.PR" $3);"-------";12);"-----------";12);"----";3);"---";); ":2);FA$ &"DDD$;2);"-------" @"N60);"DATUM  : ";DA$ d"X60);"--------":(4);"PR#0": w"l(4);"PR#";PP "qIM1ī1920 "v(9);"80N"; "3);"ARTIKEL";12);".BENAMING..";12);"TYPE";3);"BTW";16);"VERK.PR" .#3);"-------";12);"---(4);"PR#";PP:YS30:IM0ĺ(9);"40N":DD$(14):YS10 [!DD$;YS);"********************" v!DD$;YS);"*";18);"*" !DD$;YS);"*   PRIJSLIJST     *" !DD$;YS);"*";18);"*" !&DD$;YS);"********************" "0:DD$;2);"FAMILIE : ";((NF$)0 (PV$)999PV$(PV$,(PV$)3)"."(PV$,3) @ CO$CO$"%" \ LL48İ760:1780:1900 h LLLL1  K011(NU$):K16(CO$):K223(PV$)  (4);"PR#";PP:IM0ĺ(9);"80N";  K0);NU$;5);DE$;3);CR$;K1);CO$;K2);PV$  (4);"PR#0": 6!)OP2İ1960 @,AF$NF$:NU$(TAB$(I),3,10):KC%((TAB$(I),3)) b6NU$ZE$I(25KB)KA1ī1660 @(NU$,1)"0"NU$(NU$,(NU$)1):1600 JNU$(BL$NU$,10) T870 ^OP1İ1680 hOP2İ2010 rII1:1530 |760:1240 PV$((PV$)): ),2):NF$AF$:660:1780 'OP1İ1900 7OP2İ1960 TTAB$(I)(ZE$,10)ī1660 m(16384)155ī1240 	NF$(TAB$(I),2):(NF$)(AF$)(NF$)(FF$)1660 (NF$)(AF$)İ760:660:1780:TF0 (NF$)(AF$)OP1İ1900 "(NF$)(AF$790,96:216,0:222,0:34,23 }X121:X21:Y114:TY$"N":JU$"0":380:216,0:OP$NO$:OP(OP$):OP0OP2Ģ14:21:868:1440 OP0ī1240 S21IZB%:AF$NF$:660:1780 S21OP1İ1900:1530 S21OP2İ1960:1530 I0:TF0:AF$(TAB$(I:"******************" T:5:"1. VERKOOPPRIJSLIJST.":7:"2. AANKOOPPRIJSLIJST." 18::"<ESC>"::18:8:"AFDRUK ONDERBREKING.":20::"<NUL>":20::8:"TERUG NAAR HET VORIGE MENU" 12:3:"INTRODUCEER HET NUMMER ":14:3:"VAN UW KEUZE : ":." \P20:"   DUW OM HET EVEN WELKE TOETS IN OM ":22:"   HET PROGRAMMA TE STARTEN.":255 uZ(16384)127ī1370 nS21Ğ::5:"LIJST VAN  ARTIKELS PER FAMILIE":5:"******************************":1410 x34,0:::10:"KOMPLEET.....LIJST":10TIEEL":1030:1340 0(SO$"KOMPLEET":FF$"9999" x234,0:::10:SO$;" PRIJSLIJST":10:"*******************"::34,4 <190:4:"   KIJK NA DAT DE PRINTER ONDER ":6:"   SPANNING EN 'ON-LINE' IS." F10:4:"HET AFDRUKKEN GEBEURT OP LISTING PAPIER> OM NAAR HET HOOFDMENU" 723:3:" TERUG TE KEREN." v 12:3:"INTRODUCEER HET NUMMER VAN":14:3:"UW KEUZE : " 
X122:X21:Y114:TY$"N":JU$"0":380:216,0:OP$NO$:OP(OP$):OP0OP2Ģ12:22:868:1290 OP0ī2150 OP2S21:SO$"PAR0:222,0:TAB$(K)"":38000:TAB$(K)(ZE$,10): {NZ0:LL0:OP0:IP0:I0:S20:16368,0:34,0:C10:TA0:TF0:AF$"":NF$"" ::13:" PRIJSLIJST ":13:"************"::5:"  1. KOMPLETE LIJST.":7:"  2. LIJST VAN ARTIKELS PER FAMILIE":21:3:"<NUL NKB((R0TAB$,6,5)):KA((R0TAB$,5)):KZ(KB25)25:TAB$(KZ):KA0PL1 WO2$ fI1KBPL qR2$;I J024:TAB$(K):TAB$(K)(TAB$(K),11,2)(TAB$(K),10)(TAB$(K),3):(TAB$(K),3,10)(ZE$,10)ī1230 KK1:J,I -C2$:790,96:216,6,0:FF$NO$:FF$"0"ī1040 2!(FF$)(NF$)1000 $:34,0::5:"LIJST VAN ARTIKELS PER FAMILIE":5:"******************************": . B222,0:790,96:216,0 L(222)0Č790:(222)5İ2090:1090 V790,QQ:1100 `I2$ jR2$;"0"  : ":9:23:(GG$,2) 10:"  VAN EINDE LIJST    : ":11:23:(GG$,2):20:2::"NUL":20:7::"TERUG NAAR HET VORIGE MENU." X123:X22:Y18:TY$"N":JU$"0":380:216,0:NF$NO$:NF$"0"ī1240 800 X123:X22:Y110:TY$"N":JU$"0":380:21 KEUZE MAKEN":I13000:: g14:1:868:16:1:868:18:1:868:10:23:868:8:23:868:1040 34,0::5::"LIJST VAN ARTIKELS PER FAMILIE":5:"******************************": 6:"  GEEF DE FAMILIE NUMMERS ":8:"  VAN BEGIN LIJST   (CO$)2CO$(TM) .(CO$)3CO$(TH) I(CO$)4CO$(THT8) c(CR$)0CR$"     " }(CR$)1CR$"RADIO" (CR$)2CR$"TV/NB" (CR$)3CR$"TV/CL"  :14:5:"DIT FAMILIE NUMMER BESTAAT NIET"::5:"WILT U EEN ANDERE:1000 >I0K1 7H(NF$)((TAB$(I),2))ZB%I: FRI::1000 OfO1$ \pR1$;KC% hzSTREC$ qC1$ DE$(STREC$,25):SA$(STREC$,26,5):PMA$(STREC$,45,5):CO$(STREC$,34,1):PA$(STREC$,40,5):CR$(STREC$,50,1) (CO$)1CO$(TB) R5$;(NF$) FA$ C5$ F790,96:216,0:222,0:790,QQ:2130 L T   g(4);"PR#";PP {KKLLLM::KK (4);"PR#0":LL0:  790,96:216,0:222,0:790,QQ:2130 *(NF$)((TAB$(K1),2))ġ:1000 4(NF$)((TAB$(0),2))ġ0390 )N:(Z$,(NO$))NO$NO$"":390 KXAX2ĖX1A:Y1:(Z$,X2A); ZbJU$"0"ı qlJX2(NO$):J0ı vJU$"D"NO$(ZE$,J)NO$: NO$NO$(Z$,J): 790,96:216,0:222,0 790:(222)5FA$"":730 790,QQ:670 O5$ 1ZZ$(NO$,1)ZZ$:NO$"":AA1:400 ?PE8A0NO$"":400 hAX2(ZZ$)0AA1:NO$NO$V$:400 &AX2(ZZ$)1AA1:NO$NO$V$:ZZ$"":400 0AX2(ZZ$)1AA1:NO$NO$V$:ZZ$(ZZ$,(ZZ$)1):400 :AX2ĺ(7):400 D(ZZ$)0(NO$)(Z$,X2);:390 @PE21(ZZ$)1NO$NO$ZZ$:ZZ$"":AA1:400 YPE21(ZZ$)0ī400 PE21(ZZ$)1NO$NO$(ZZ$,1):ZZ$(ZZ$,(ZZ$)1):AA1:400 PE13(V$)0ī580 PE8A1ZZ$(NO$,1)ZZ$:NO$(NO$,(NO$)1):AA1:400 %PE8A222,0:1090 |P90NO$"" .790,QQ:395 MA(NO$):ZZ$"":(4):410 V790 \ mX1:Y1:NO$ {Y1:X1A V$:PE(16384):PE44PE34ī430 TY$"N"460 (PE48PE57)(PE27PE8PE13PE21)400 PE27NO$"":X1:TVA$:TB((TVA$,2)):TM((TVA$,3,2)):TH((TVA$,5,2)):T8((TVA$,7,2)) SC3$ m"790,96:216,0:222,0 ,790:(222)5DA$"":360 6790,QQ:300 @O4$ JR4$ TDA$:DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) ^C4$ h790,96:216,0:FO ,S5,D1,L30":R5$D$"READ FAFO ,R":C5$D$"CLOSE FAFO" [ (222)0Č790:(222)5ī220 m 790,QQ:190  D$;"BLOAD SORT,S6,D1"  790,96:216,0:222,0  (222)0Č790:(222)5TB6:TM16:TH25:290  790,QQ:230  O3$ R3$ J,L400":R2$D$"READ FPDTABLE,R":C1$D$"CLOSE FPDTABLE":I2$D$"OPEN FPDTABLE,S5,D1,L15" 
 O3$D$"OPEN TVA,S6,D1,L10":R3$D$"READ TVA,R0":C3$D$"CLOSE TVA" 
 O4$D$"OPEN DATE ,S5,D1,L8":R4$D$"READ DATE ,R0":C4$D$"CLOSE DATE" 8 O5$D$"OPEN FA4):D$;"NOMON I,C,O":LL0:S10:S20:NZ0:TA0:ZE$"0000000000":Z$"             ":BL$Z$:GG$"''''''''''" t	z 30000 	| LM65:IM1LM65 	 O1$D$"OPEN FPDSTOCK,S5,D1,L66":R1$D$"READ FPDSTOCK,R":C1$D$"CLOSE FPDSTOCK" X
 O2$D$"OPEN FPDTABLE,S5,D1! QQ104:(57350)QQQQ8 x 790,96:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96 F PP1 Z LM66 d 34,0:33,40:::1:15:"INVENTARIS":2:15:"----------"::34,23:222,0:790,96:216,0:37998 i	x D$(13)(            
	 
	                                                                                                                                                                                  60);"DATUM  : ";DA$ +&60);"--------" B&IM0ĺ(9);"80N"; g&:2);"REFERENTIE";60);"STOCK" &3);"ARTIKEL";8);".BENAMING..";10);"TYPE";3);"BTW";3);"STOCK";2)"AANKOOPPR";3);"WAARDE" -'3);"-------";8);"-----------";10);"----";3);:YM10 % 1%DD$;YM);"********************" L%DD$;YM);"*";18);"*" q%DD$;YM);"*    INVENTARIS    *" %DD$;YM);"*";18);"*" %DD$;YM);"********************" %:DD$;2);"FAMILIE : ";((NF$)); %2);FA$ %DD$;2);"-------" &F$"********" $NK015(TF$) Y$X(4);"PR#";PP:YM42:IM0ĺ(9);"40N";:DD$(14):YM4 w$bDD$;YM25);"----------" $lDD$;YM);"FAMILIETOTAAL ";(AF$);2);": ";K0);TF$ $vLLLL2:(4);"PR#0": %(4);"PR#";PP:YM30:IM0ĺ(9);"40N";:DD$(14);2);DE$;1);CR$;K1);CO$;K2);SA$;K3);PMA$;K5);C$ G#(4);"PR#0": S#OP1ı d#LL60İ760 r#&TF$(TF) #0TF999TF999999TF$(TF$,(TF$)3)"."(TF$,3) #:TF999999TF$(TF$,(TF$)6)"."(TF$,(TF$)5,3)"."(TF$,3) $D(TF$)11T999999C$(C$,(C$)6)"."(C$,(C$)5,3)"."(C$,3) H"CO$CO$"%" ^"LL60İ760:1930 j"LLLL1 "K011(NU$):K15(CO$):K28(SA$):K38(PMA$) "(C$)10C$"********" "K512(C$) "(4);"PR#";PP:IM0ĺ(9);"80N"; 4#K0);NU$cLLLL1 %!h(4);"PR#0":750:1230 ^!|PA$((PA$)):PMA$((PMA$)):SA$((SA$)):C$(C1) !(PA$)999PA$(PA$,(PA$)3)"."(PA$,3) !(PMA$)999PMA$(PMA$,(PMA$)3)"."(PMA$,3) !C1999C1999999C$(C$,(C$)3)"."(C$,3) 8"C1(TA$)6)"."(TA$,(TA$)5,3)"."(TA$,3) A 6(TA$)0TA$""  @OP3Ĺ34,0:18:3:"   STOCK WAARDE  = ";TA$:KK12000:KK:1230  J760  T(4);"PR#";PP:YM40:IM0ĺ(9);"40N";:YM2  ^DD$(14):DD$;YM);"        DE STOCKWAARDE IS : ";TA$ 	!1)"0"NU$(NU$,(NU$)1):1500 6NU$(BL$NU$,10) ?870 pOP1C1((SA$)(PMA$)):TATAC1:TFTFC1 z1660 II1:1450 1810:OP1İ760:1230 "TA$(TA):TA999TA999999TA$(TA$,(TA$)3)"."(TA$,3) , ,TA999999TA$(TA$,0 TAB$(I)(ZE$,10)ī1560 7(16384)155ī1230 oNF$(TAB$(I),2):(NF$)(AF$)(NF$)(FF$)1560 (NF$)(AF$)İ1810:760:660:1930:TF0 AF$NF$:NU$(TAB$(I),3,10):KC%((TAB$(I),3)) NU$ZE$I(25KB)KA1ī1560  (NU$,KEUZE : ":790,96:216,0:222,0:34,23:790,QQ:2440 X121:X21:Y114:TY$"N":JU$"0":380:216,0:OP$NO$:OP(OP$):OP0OP2Ģ14:21:868:1410 OP0ī1230 S21IZB%:AF$NF$:660:1930:1450 I0:TF0:AF$(TAB$(I),2):NF$AF$:660:193S":10:"*******************" zd:5:"1.AFDRUKKEN VAN DE INVENTARIS ALLEEN.":7:"2.AFDRUKKEN VAN INVENTARIS EN SALDO " n18::"<ESC>"::18:8:"AFDRUK ONDERBREKING.":20:1::"<NUL>"::20:8:"TERUG NAAR INVENTARISSCHERM." 5x14:3:"      UW  PAPIER." b<20:"   DUW OM HET EVEN WELKE TOETS IN OM":22:"   HET PROGRAMMA TE STARTEN.":255 {F(16384)127ī1350 PS21Ğ::5:"LIJST VAN ARTIKELS PER FAMILIE":5:"******************************":1380 Z34,0:::10:"KOMPLEET INVENTARI"PARTIEEL":1020:1320 4SO$"KOMPLEET":FF$"9999" }34,0:::10:SO$;" INVENTARIS ":10:"*******************"::34,4 (190:4:"   KIJK NA DAT DE PRINTER ONDER ":6:"   SPANNING EN 'ON-LINE STAAT." 	210:1:"HET AFDRUKKEN GEBEURT OP LISTINGER FAM.":21:3:"<NUL> OM NAAR HET HOOFDMENU" M23:3:" TERUG TE KEREN." i14:3:"     UW KEUZE" X122:X21:Y114:TY$"N":JU$"0":380:216,0:OP$NO$:OP(OP$):OP0OP2Ģ12:22:868:1270  OP0ĺD$"RUN PS0   ,S6,D1" 
OP2S21:SO$C2$:790,96:216,0:222,0:TAB$(K)"":38000:TAB$(K)(ZE$,10): NZ0:LL0:OP0:IP0:I0:S20:16368,0:34,0:C10:TA0:TF0:AF$"":NF$"" .::15:"INVENTARIS":15:"**********"::5:"  1. KOMPLETE INVENTARIS":7:"  2. INVENTARIS VAN ARTIKELS PtR0TAB$ ~C2$ bKB((R0TAB$,6,5)):KA((R0TAB$,5)):KZ(KB25)25:TAB$(KZ):KA0PL1 kO2$ zI1KBPL R2$;I J024:TAB$(K):TAB$(K)(TAB$(K),11,2)(TAB$(K),10)(TAB$(K),3):(TAB$(K),3,10)(ZE$,10)ī1220 KK1:J,I A                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                D$"OPEN PRINTER,S5,D1,L6" 4)XuD$"READ PRINTER,R0" >)buBID$ [)luD$"CLOSEPRINTER":216,0 o)vuIM((BID$,1)) )uPP((BID$,2,1)) )u   )u   )) )u    1)) )u                                                                                     ":216,0 vuIM((BID$,1)) 2uSP((BID$,2,1)) 8u   ,                                                                                                                                                                                                     MENU TERUG TE KEREN." &(16368),0 >(16384)127ī750 MD$;"PR#6" o0u216,0:222,0:768,QQ:30020 z:u30030 Du768:(222)5Ĺ222,0:BID$"1100":30060 NuD$"OPEN PRINTER,S5,D1,L6" XuD$"READ PRINTER,R0" buBID$ luD$"CLOSEPRINTER6,0: D$;"PR#6 S34,0:::1:8:" FOUT ROUTINE "::2:8:" ------------ " 4:1::"EEN VAN UW SCHIJVEN IS DEFEKT":6:1:"OF HEEFT HAAR KAPACITEIT OVERSCHREDEN." 18:1:"DUW OM HET EVEN WELKE TOETS IN OM    ":20:1:"NAAR HETPR#6" X768,96:216,0:222,0 Ob768:(222)5Ĺ768,96:216,0:222,0:ZW1: al768,QQ:610 vD$;"OPEN ";F$;",S";S;",D1,L6" D$;"READ ";F$;",R0" NR$:ZW0 D$;"CLOSE ";F$: (222)8(222)9ī700 (222)255Ĺ222,0:768,96:21ER ONDER  ":10:"SPANNING EN 'ON LINE' STAAT." i16:"<";::"ESC";::">  TERUGKEREN NAAR HET MENU." &20:"DUW OM HET EVEN WELKE TOETS IN OM":22:"HET PROGRAMMA TE STARTEN.":34,23 0(16384)127ī560 :(16384)155ġ:150 D ND$;"CTVA999999CTVA$(CTVA$,(CTVA$)6)"."(CTVA$,(CTVA$)5,3)"."(CTVA$,3) (TVA$)0(TVA$)9TVA$(TVA$,3)"."(TVA$,4,3)"."(TVA$,3) CTVA0CTVA$""  34,0:4:"EDITIE GEBEURT OP LISTING PAPIER." /8:"KIJK NA OF DE PRINTCA2000(TVA$)0ġ:J,I:150 ;CA$(CA):CTVA$(CTVA) rCA999CA999999CA$(CA$,(CA$)3)"."(CA$,3) CA999999CA$(CA$,(CA$)6)"."(CA$,(CA$)5,3)"."(CA$,3) CTVA999CTVA999999CTVA$(CTVA$,(CTVA$)3)"."(CTVA$,3) O"---";3);"-----";2)"---------";3);"------" D' LL16:D$;"PR#0": '*16368,0:34,0:10:1:"HET STOCKBESTAND BEVINDT ZICH NIET":12:1:"IN DRIVE NUMMER '2'.":15:1:"WIL U DIT NAKIJKEN EN " T(417:1:"DE DEUR VAN DE DRIVE GOED SLUITEN.":19:1:");"STOCK" e4);"NUMMER";11);"            ";9);"    ";3);"STOCK";4);"STOCK";2);"TE BESTELLEN" 4);"------";9);"-----------";8);"----";5);"-------";2);"-------";2);"-----------" LLLL4:D$;"PR#0": A16368,0:34,0:10:1:"STOCK B$;2);"FAMILIE : ";((NF$)); *j2);FA$ AtDD$;2);"-------" X~60);"DATUM ";DA$ x60);"------":(4);"PR#0" LLLL11: (4);"PR#";PP IM0ĺ(9);"80N"; 	4);"ARTIKEL";8);".BENAMING..";8);"TYPE";5);"AKTUELE";2);"MINIMUM";5(9);"40N";:DD$(14):YM2 !) V.DD$;YM);"************************************" q8DD$;YM);"*";34);"*" BDD$;YM);"*        BESTELLINGSLIJST          *" LDD$;YM);"*";34);"*" VDD$;YM);"************************************" `:DD."(MI$,3) MA$MA$"%" 7LL60İ420:1060:1180 CLLLL1 i(4);"PR#";PP:IM0ĺ(9);"80N"; 1);NU$;12(NU$));DE$;31(DE$)(CR$));CR$;10(SA$));SA$;10(MI$));MI$;12(QC$));QC$ (4);"PR#0": $(4);"PR#";PP:YM22:IM0(TAB$(I),2):(NF$)(AF$)İ420:320:1060:1180:AF$NF$ MMI$((MI$)) _SA$((SA$)) xQC$((MI$)(SA$)) (QC$)999QC$(QC$,(QC$)3)"."(QC$,3) (SA$)999SA$(SA$,(SA$)3)"."(SA$,3) (MI$)999MI$(MI$,(MI$)3)"(16384)155ī1290  I0 :*TAB$(I)(ZE$,10)ī890 f4NU$(TAB$(I),3,10):KC%((TAB$(I),3)) >NU$ZE$I(25KB)KA1ī890 H(NU$,1)"0"NU$(NU$,(NU$)1):840 \470 f910 pII1:810 z420:1290 (SA$)(MI$)ı ;NF$EN 'ON-LINE' STAAT." K10:1:"HET AFDRUKKEN GEBEURT OP LISTING PAPIER." 15:1:"<";::"ESC";::">  TERUGKEREN NAAR HET MENU." 20:"DUW OM HET EVEN WELKE TOETS IN OM":22:1:"HET PROGRAMMA TE STARTEN.":34,23:255 (16384)127ī780 KK1:J,I OC2$:790,96:216,0:222,0:TAB$(K)"":38000:TAB$(K)(ZE$,10): zLL0:I0:16368,0:34,0:AF$"":NF$"" 34,0:::12:"BESTELLINGSLIJST":2:12:"****************":34,4: 190:4:"KIJK NA DAT DE PRINTER ONDER  ":6:"SPANNING $ lR2$;"0" vR0TAB$ #C2$ qKB((R0TAB$,6,5)):KA((R0TAB$,5)):KZ(KB25)25:TAB$(KZ):KA0PL1 zO2$ I1KBPL R2$;I J024:TAB$(K):TAB$(K)(TAB$(K),11,2)(TAB$(K),10)(TAB$(K),3):(TAB$(K),3,10)(ZE$,10)ī710 A$(STREC$,26,5):CR$(STREC$,50,1):MI$(STREC$,31,3) V(CR$)1CR$"RADIO":550 u(CR$)2CR$"TV/NB":550 (CR$)3CR$"TV/CL":550 CR$"" &C1$ 0 D222,0:790,96:216,0 N790:(222)5İ1250:580 X790,QQ:590 bI2J790:(222)5FA$"":390 /T790,QQ:330 8^O5$ HhR5$;(NF$) QrFA$ Z|C5$ 790,96:216,0:222,0:790,QQ:590  (4);"PR#";PP KKLLLM::KK (4);"PR#0":LL0: O1$ R1$;KC% STREC$ 7DE$(STREC$,25):S  790,QQ:200 - D$;"BLOAD SORT,S6,D1" G 790,96:216,0:222,0 f 790:(222)5DA$"":300 x 790,QQ:240 O4$ R4$ DA$:DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) "C4$ ,790,96:216,0:222,0:580 @790,96:216,0:222,0 2$D$"READ FPDTABLE,R":C1$D$"CLOSE FPDTABLE":I2$D$"OPEN FPDTABLE,S5,D1,L15" 
 O4$D$"OPEN DATE ,S5,D1,L8":R4$D$"READ DATE ,R0":C4$D$"CLOSE DATE" 
 O5$D$"OPEN FAFO ,S5,D1,L30":R5$D$"READ FAFO ,R":C5$D$"CLOSE FAFO"   790:(222)5ī230 D$(13)(4):D$;"NOMON I,C,O":LL0:ZE$"0000000000":Z$"             ":BL$Z$:GG$"''''''''''" l	 30000 	 LM65:IM1LM65 	 O1$D$"OPEN FPDSTOCK,S5,D1,L66":R1$D$"READ FPDSTOCK,R":C1$D$"CLOSE FPDSTOCK" P
 O2$D$"OPEN FPDTABLE,S5,D1,L400":R QQ104:(57350)QQQQ8 x 790,96:791,168:792,104:793,166:794,223:795,154:796,72:797,152:798,72:799,96 Z PP1 n LM66 x 34,0:33,40:::1:12:"BESTELLINGSLIJST":2:12:"----------------"::34,23:222,0:790,96:216,0:37998 a	                 
 	          !!!                                                                                                                                                                                                                zPS90 JU$"0" #170:216,0 935,24:34,23:24 FT$NO$:((FT$,2))1((FT$,2))31((FT$,4,2))1((FT$,4,2))12((FT$,2))79ī970 FT((FT$,2)(FT$,4,2)(FT$,2)) #FTDTĖ1:16::"  EINDE DATUM LAGER DAN BEGIN DATUM  DDĖ1:14::"DATUM LAGER DAN BESTAND LIMIET     !!!":K11000:K::1:14:868:840 e>850 H34,12:1:13:"  BEGIN DATUM...: ";::"D";::"D/MM/JJ":15:"  EINDE DATUM...: DD/MM/JJ":16368,0:690 RX28 \X119 fY115 pTY$"A" X119 X28 Y113 $TY$"A" 0JU$"0" 9P90 I170:216,0 DT$NO$:((DT$,2))1((DT$,2))31((DT$,4,2))1((DT$,4,2))12((DT$,2))79ī840  DT((DT$,2)(DT$,4,2)(DT$,2)) *(DT$,3,1)"/"(DT$,6,1)"/"840 \4DTR7$;NE1 GDF$:DF(DF$):DF$(DF$,2)"/"(DF$,3,2)"/"(DF$,2) PC7$ LL0ĺ(4);"PR#";SP:KLLLM::K:(4);"PR#0":LL0 35,24:34,23:1830:16368,0 (16384)127ī690 (16384)155İ1890:490 (16384)160ī1910 ,0:1890:1770  768,QQ:500 )O6$ 4R6$;0 pDC$:DC(DC$):DC$(DC$,2)"/"(DC$,3,2)"/"(DC$,2) y&C6$ 0I7$ :R7$;0 DNE$:NE(NE$) NC7$ XO7$ bR7$;1 lDD$ vDD(DD$):DD$(DD$,2)"/"(DD$,3,2)"/"(DD$,2) AX2ĖX1A:Y1:(Z$,X2A); &460 5JU$"0"ı LJX2(NO$):J0ı lJU$"D"NO$(ZE$,J)NO$: NO$NO$(Z$,J): 768,QQ:480  768::(222)::(218)(219)256: 1710 (222)0Č768:(222)5Ĺ222,0:768,96:2168A0NO$"":190 :TAX2(ZZ$)0AA1:NO$NO$V$:190 j^AX2(ZZ$)1AA1:NO$NO$V$:ZZ$"":190 hAX2(ZZ$)1AA1:NO$NO$V$:ZZ$(ZZ$,(ZZ$)1):190 rAX2ĺ(7):190 |(ZZ$)0(NO$)0180 :(Z$,(NO$))NO$NO$"":180 :ZZ$"":AA1:190 +PE21(ZZ$)0ī190 o"PE21(ZZ$)1NO$NO$(ZZ$,1):ZZ$(ZZ$,(ZZ$)1):AA1:190 ,PE13(V$)0ī380 6PE8A1ZZ$(NO$,1)ZZ$:NO$(NO$,(NO$)1):AA1:190 @PE8A1ZZ$(NO$,1)ZZ$:NO$"":AA1:190 JPE:185  A(NO$):ZZ$"":200 ( 768 .  ? X1:Y1:NO$ M Y1:X1A t V$:PE(16384):PE44PE34ī220  TY$"N"250  (PE48PE57)(PE27PE8PE13PE21)190  PE27NO$"":X1:(Z$,X2);:180 PE21(ZZ$)1NO$NO$ZZ$TESTAT" 
Z T1$(200) 2
_ 30000:LM65:IM1LM65 Z
b 222,0:768,96:216,0:768,QQ:100 
d 768:(222)5Ĺ768,96:216,0:222,0:1910 
n O4$ 
x R4$ 
 DJ$ 
 DJ$(DJ$,2)"/"(DJ$,3,2)"/"(DJ$,2) 
 C4$ 
 490 
 P90NO$""  768,QQC4$D$"CLOSE DATE" x	F O6$D$"OPEN FPDSTATCLIENT,S4,D1,L8":R6$D$"READ FPDSTATCLIENT,R0":C6$D$"CLOSE FPDSTATCLIENT" 
P O7$D$"OPEN DATESTAT,S4,D1,L8":R7$D$"READ DATESTAT,R":I7$D$"OPEN DATESTAT,S4,D1,L6":W7$D$"WRITE DATESTAT,R":C7$D$"CLOSE DA6 QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96  1890:1660  SP1 ( SP$(14) 2 ZE$"0000000000":768,96:216,0:222,0 	< O4$D$"OPEN DATE,S5,D1,L8":R4$D$"READ DATE,R":            !!
!	!!!!!!!!! """"""""" 
	                                                                                                                                                                                          ,1)) 
u   ) u                                                                                                                                                                                                                                          RUN PS0,S6" 790:D$;"PR#6" A0u216,0:222,0:790,QQ:30020 L:u30030 yDu790:(222)5Ĺ222,0:BID$"1100":30060 NuD$"OPEN PRINTER,S5,D1,L6" XuD$"READ PRINTER,R0" buBID$ luD$"CLOSEPRINTER":216,0 vuIM((BID$,1)) uPP((BID$,2ESTAND BESTAAT NIET.":15:1:"WILT U DIT BESTAND EERST KREEREN." 19:1:"DUW OM HET EVEN WELKE TOETS IN OM HET":21:1:"PROGRAMMA TE STARTEN.":34,23 (16384)1281270  34,0:10:1:958:34,23: 
2116,0:222,0:790,QQ:1310 D$;" NA OF DE PRINTER ONDER  ":6:"SPANNING EN 'ON LINE' STAAT." j10:"EDITIE GEBEURT OP LISTING PAPIER." 16:"<";::"ESC";::">  TERUGKEREN NAAR HET MENU." 19:"DUW OM HET EVEN WELKE TOETS IN OM   ":21:"HET PROGRAMMA TE STARTEN.":34,23 $)3)"."(QV$,3) *TY1TY$" RADIO " B"TY2TY$"TV Z/WT" Z,TY3TY$"TV  KL." 68);DA$;5);NN$;K4);RA$;K5);QV$;3);TY$ @20);AD$ J20);LO$ T ^LLLL4 hLL60āKLLLM::K:LL0 r(4);"PR#0": =|34,3::4:"KIJKRKOOP ";4);"TYPE" r6);"-------------";5);" ---------------- ";4);"------------";4);" ------- ";4);"----" :LLLL13 QV$(QV) K436(NN$)(RA$) K513(QV$) DA$(DA$,2)"/"(DA$,3,2)"/"(DA$,2) QV999QV$(QV$,(QV********************" a::6);"RADIO-TV VERKOOP VAN  ";DT$;"  TOT  ";FT$;10);"DATUM : ";DJ$ 6);"---------------------------------------------";10);"----------------" 6);"VERKOOP DATUM";5);" KLANTEN GEGEVENS ";4);"ARTIKEL NR. ";4);" VE4);"PR#";SP:YM23:IM0ĺ(9);"80N";:YM3 :nLL0ī1510 @x uSP$;YM);"************************************" SP$;YM);"*";35);"*" SP$;YM);"*        VERKOOPSSTATISTIEKEN      *" SP$;YM);"*";35);"*" SP$;YM);"****************DA$(T1$(I),6):NN$(T1$(I),7,24):AD$(T1$(I),31,24):LO$(T1$(I),55,24):RA$(T1$(I),79,10):QV((T1$(I),89,5)):TY((T1$(I),1)) ((RA$,1,1)"0"RA$(RA$,(RA$)1):1320 2(DA$)DTī1360 <(DA$)FTī1370 F1380 PI Z )d(",R":C8$D$"CLOSEFPDSTAT"RT$ X(222)0Č768:(222)5Ĺ768,96:216,0:222,0:1910 k768,QQ:1180 tI8$ R8$;0 NS$:NS(NS$) C8$ 768,96:216,0:222,0 O8$ I1NS1 R8$;I  T1$(I1) 
I:C8$ I0NS2 DRFTī1160 .DRDTī1090 )81170 5BRT$DR$ >LO7$ IVR7$;J R`DR$ [jC7$ itDR(DR$) p~J 1170:RT$DR$:1170:670 O8$D$"OPEN FPDSTAT"RT$", S4, D1, L96":I8$D$"OPEN FPDSTAT"RT$", S4, D1, L6":R8$D$"READ  FPDSTAT"RT$ ":K11000:K::1:16:868:970 L(FT$,3,1)"/"(FT$,6,1)"/"970 U980 34,12:1:15:"  EINDE DATUM...: ";::"D";::"D/MM/JJ":850 O7$ R7$;1 DR$ C7$ DR(DR$) RT$DR$ NE2İ1170:670 J2NE1 $"": h"":   T                                                                                                                                                                                                                                      "RUN PS9 ,S6" D$(4) <"OP0ė:360:D$;"RUN P0  ,S6" _,OP4ė:360:D$;"RUN PS10,S6" 6OP5ė:360:D$;"RUN PS0 ,S6" @768:(16384)13(OP$)0ī210 J(16384)8OP$" "AA1:OP$" ":768,96:216,0:160 T768,96:216,0:160 	^ (OP$)6OP(OP$):240 * 768,QQ:70  34,0::3:5::"GEKOZEN MOGELIJKHEID BESTAAT NIET !"::5:12:"MAAK EEN NIEUWE KEUZE.":I12500::70  768,QQ:60  OP1İ360:D$;"RUN PS7 , S6" OP2İ360:D$;"RUN PS8 ,S6" OP3İ360:D$;ADIO & TV VERKOPEN." :
 16:"  4. RADIO & TV UIT STOCK." V
 18:"  5. STOCK MENU." k
 34,23:16368,0 
 768,QQ:320:160 
 21:868:21:10:"                 KEUZE ? ";OP$ 
 21:A:OP 
 A36AA1:OP$(OP):160 
 A36İ350:160 EN APPLE II":2:5);"*******************************":4:30);"VERS.2.00" 	Z 6:4);"STATISTIEKEN & KIJKEN LUISTERGELD":4);"---------------------------------" 	d 10:"  1. VERKOOPSSTATISTIEKEN." 	n 12:"  2. RADIO & TV AANKOPEN." 
x 14:"  3. R QQ104:(57350)QQQQ8 x 768,96:769,168:770,104:771,166:772,223:773,154:774,72:775,152:776,72:777,96 < 768:34,0:33,40:D$(13)(4):D$;"NOMON I,C,O":16368,0 F 768:OP$"":A35:768,96:216,0 K	P :1:5);"SOFTWARE I.T.T.2020             """""
"	                                                                                                                                                                                                                                        